#######################################
#第2次ＳＲＷα風ステータス表示ver13.02#
#######################################

ユニットコマンド 能力 敵 (((Info(オプション,ユニット情報隠蔽) = Off) OR (Condition(対象パイロット,識別済み) = 1)) AND (Condition(対象パイロット,ユニット情報隠蔽) = 0)):
ユニットコマンド 能力 ＮＰＣ (Condition(対象パイロット,ユニット情報隠蔽) = 0):
ユニットコマンド 能力 中立 (((Info(オプション,ユニット情報隠蔽) = Off) OR (Condition(対象パイロット,識別済み) = 1)) AND (Condition(対象パイロット,ユニット情報隠蔽) = 0)):
-*ユニットコマンド 能力 味方 (Condition(対象パイロット,ユニット情報隠蔽) = 0):
Require Lib\Alpha2ndStatus.ini
各種数値の設定
If Info(パイロット,対象パイロット,愛称) <> パイロット不在 Then
	参照項目 = 1
Else
	参照項目 = 2
EndIf
ShowUnitStatus 終了
ステータス表示制御 対象パイロット 参照項目
Do While KeyState(2)
Loop
Wait 1
ClearObj
ClearPicture
変数リセット
ステ設定消す
Refresh
#Noon
Exit

ステータス表示制御:
Do
	Switch 参照項目
	Case 1
		ユニット能力表示 Args(1)
	Case 2
		機体能力表示 Args(1)
	Case 3
		パイロット能力表示 Args(1)
	Case 3.5
		レーダーチャートパイロット能力表示 Args(1)
	Case 4
		武器性能表示 Args(1)
	Case 5
		アビリティ性能表示 Args(1)
	Case 6
		Break
	EndSw
Loop While (1)
Return

パイロット格納処理:
If 搭乗員[0,0] <> 1 Then
	パイロット格納 Args(1)
EndIf
Return

ユニット能力表示:
Local 番目
番目 = 1
Font
パイロット格納処理 Args(1)
Do
	ユニット能力ひょうじ Args(1) 番目
	Wait Click
	Switch 選択
	Case 機体
		ClearObj
		参照項目 = 2
		Break
	Case パイロット
		ClearObj
		参照項目 = 3
		Break
	Case 武器
		ClearObj
		参照項目 = 4
		Break
	Case サブパイロット
		番目 = 番目 + 1
		If 番目 > 搭乗員[0,1] Then
			番目 = 1
		EndIf
	Case ""
		If KeyState(2) Then
			参照項目 = 6
			Break
		EndIf
	EndSw
Loop While (1)
Return

機体能力表示:
Local 現在のページ
Local アイテム現在のページ
現在のページ = 1
アイテム現在のページ = 1
パイロット格納処理 Args(1)
Font
Do
	機体能力ひょうじ Args(1) 現在のページ アイテム現在のページ
	Wait Click
	Switch 選択
	Case ユニット
		ClearObj
		参照項目 = 1
		Break
	Case パイロット
		ClearObj
		参照項目 = 3
		Break
	Case 武器
		ClearObj
		参照項目 = 4
		Break
	Case 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
		Talk システム
		<B>$(Item(Args(1),選択))</B>;$(ころけし(Info(アイテム,Item(Args(1),選択),解説文)))
		End
	Case 次のページ
		Incr 現在のページ
		If 現在のページ > 真特能番[ページ数] Then
			現在のページ = 1
		EndIf
		ClearObj
	Case アイテム次のページ
		Incr アイテム現在のページ
		If アイテム現在のページ > 真アイテム番[ページ数] Then
			アイテム現在のページ = 1
		EndIf
		ClearObj
	Case 盾
		たてのかいせつ Args(1)
	Case 修理
		Talk システム
		<B>$(Info(ユニット,UnitID(Args(1)),特殊能力名称,真特能番[しゅうり,1]))</B>;$(ころけし(Info(ユニット,UnitID(Args(1)),特殊能力解説,真特能番[しゅうり,1])))
		End
	Case 補給
		Talk システム
		<B>$(Info(ユニット,UnitID(Args(1)),特殊能力名称,真特能番[ほきゅう,1]))</B>;$(ころけし(Info(ユニット,UnitID(Args(1)),特殊能力解説,真特能番[ほきゅう,1])))
		End
	Case 紹介
		ユニット紹介表示 Info(ユニット,UnitID(Args(1)),名称) Args(1)
	Case ""
		If KeyState(2) Then
			参照項目 = 6
			Break
		EndIf
	Case Else
		Local つかう
		つかう = Mid(選択,3)
		Talk システム
		<B>$(Info(ユニット,UnitID(Args(1)),特殊能力名称,つかう))</B>;$(ころけし(Info(ユニット,UnitID(Args(1)),特殊能力解説,つかう)))
		End
	EndSw
Loop While (1)
Return

パイロット能力表示:
Local 番目
Local 現在のページ
現在のページ = 1
If だれ <> 0 Then
番目 = だれ
UnSet だれ
Else
番目 = 1
EndIf
Do
	パイロット能力ひょうじ 番目 現在のページ
	Wait Click
	Switch 選択
	Case ユニット
		ClearObj
		参照項目 = 1
		Break
	Case 機体
		ClearObj
		参照項目 = 2
		Break
	Case レーダー
		ClearObj
		だれ = 番目
		参照項目 = 3.5
		Break
	Case 武器
		ClearObj
		参照項目 = 4
		Break
	Case サブパイロット
		現在のページ = 1
		Incr 番目
		If 番目 > 搭乗員[0,1] Then
			番目 = 1
		EndIf
		ClearObj
	Case 次のページ
		Incr 現在のページ
		If 現在のページ > 真技能番[搭乗員[番目,1],ページ数] Then
			現在のページ = 1
		EndIf
		ClearObj
	Case ＭＩＤＩ演奏
		StopBGM
		StartBGM テーマ曲
	Case ""
		If KeyState(2) Then
			参照項目 = 6
			Break
		EndIf
	Case 1 2 3 4 5 6
		Talk システム
		<B>$(LIndex(Info(パイロット,搭乗員[番目,1],スペシャルパワー),選択))</B>;$(ころけし(Info(スペシャルパワー,LIndex(Info(パイロット,搭乗員[番目,1],スペシャルパワー),選択),解説文)))
		End
	Case 紹介
		キャラクター紹介表示 Args(1) 番目
	Case Else
		Local つかう
		つかう = Mid(選択,3)
		Talk システム
		<B>$(Info(パイロット,搭乗員[番目,1],特殊能力名称,つかう))</B>;$(ころけし(Info(パイロット,搭乗員[番目,1],特殊能力解説,つかう)))
		End
	EndSw
Loop While (1)
Return

レーダーチャートパイロット能力表示:
Local 番目
番目 = だれ
UnSet だれ
Do
	レーダーチャートパイロット能力ひょうじ 番目
	Wait Click
	Switch 選択
	Case ユニット
		ClearObj
		参照項目 = 1
		Break
	Case 機体
		ClearObj
		参照項目 = 2
		Break
	Case パイロット
		ClearObj
		だれ = 番目
		参照項目 = 3
		Break
	Case 武器
		ClearObj
		参照項目 = 4
		Break
	Case サブパイロット
		現在のページ = 1
		Incr 番目
		If 番目 > 搭乗員[0,1] Then
			番目 = 1
		EndIf
		ClearObj
	Case ＭＩＤＩ演奏
		StopBGM
		StartBGM テーマ曲
	Case ""
		If KeyState(2) Then
			参照項目 = 6
			Break
		EndIf
	Case 紹介
		キャラクター紹介表示 Args(1) 番目
	EndSw
Loop While (1)
Return

武器性能表示:
Local 番目
番目 = 1
Local 現在のページ
現在のページ = 1
Do
	武器性能ひょうじ Args(1) 現在のページ 番目
	Wait Click
	Switch 選択
	Case ユニット
		ClearObj
		参照項目 = 1
		Break
	Case 機体
		ClearObj
		参照項目 = 2
		Break
	Case パイロット
		ClearObj
		参照項目 = 3
		Break
	Case アビリティ
		ClearObj
		参照項目 = 5
		Break
	Case 次のページ
		番目 = 1
		Incr 現在のページ
		If 現在のページ > 真武器番[ページ数] Then
			現在のページ = 1
		EndIf
		ClearObj
	Case 属性
		属性表示 UnitID(Args(1)) 真武器番[((現在のページ - 1) * 8 + 番目)] 1
	Case 1 2 3 4 5 6 7 8
		番目 = 選択
		ClearObj
	Case ""
		If KeyState(2) Then
			参照項目 = 6
			Break
		EndIf
	EndSw
Loop While (1)
Return

アビリティ性能表示:
Local 番目
番目 = 1
Local 現在のページ
現在のページ = 1
Do
	アビリティ性能ひょうじ Args(1) 現在のページ 番目
	Wait Click
	Switch 選択
	Case ユニット
		ClearObj
		参照項目 = 1
		Break
	Case 機体
		ClearObj
		参照項目 = 2
		Break
	Case パイロット
		ClearObj
		参照項目 = 3
		Break
	Case 武器
		ClearObj
		参照項目 = 4
		Break
	Case 次のページ
		番目 = 1
		Incr 現在のページ
		If 現在のページ > 真アビリティ番[ページ数] Then
			現在のページ = 1
		EndIf
		ClearObj
	Case 属性
		属性表示 UnitID(Args(1)) 真アビリティ番[((現在のページ - 1) * 8 + 番目)] 2
	Case 1 2 3 4 5 6 7 8
		番目 = 選択
		ClearObj
	Case ""
		If KeyState(2) Then
			参照項目 = 6
			Break
		EndIf
	EndSw
Loop While (1)
Return

パイロット格納:
Local i
搭乗員[0,1] = CountPilot(UnitID(Args(1)))
For i = 1 To 搭乗員[0,1]
	Switch i
	Case 1
		搭乗員[1,1] = PilotID(UnitID(Args(1)))
		If Info(ユニット,UnitID(Args(1)),特殊能力所有,表示フルネーム変更) = 1 Then
			搭乗員[1,2] = LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,表示フルネーム変更),2)
		Else
			搭乗員[1,2] = Pilot(UnitID(Args(1)))
		EndIf
		If IsAvailable(UnitID(Args(1)),パイロット画像) Then
			搭乗員[1,4] = Info(ユニット,UnitID(Args(1)),特殊能力データ,パイロット画像)
		Else
			搭乗員[1,4] = Info(パイロット,搭乗員[1,1],グラフィック)
		EndIf
	Case Else
		搭乗員[i,1] = PilotID(UnitID(Args(1)),i)
		搭乗員[i,2] = Pilot(UnitID(Args(1)),i)
		搭乗員[i,4] = Info(パイロット,搭乗員[i,1],グラフィック)
	EndSw
	搭乗員[i,5] = 搭乗員[i,2]
	If InStr(搭乗員[i,2],"(") <> 0 Then
		搭乗員[i,2] = Left(搭乗員[i,2],(InStr(搭乗員[i,2],"(") - 1))
	EndIf
	If フルネーム[搭乗員[i,1]] <> "" Then
		搭乗員[i,2] = フルネーム[搭乗員[i,1]]
	EndIf
	搭乗員[i,3] = NickName(搭乗員[i,1])
	If Dir(ScenarioPath & "\Bitmap\Pilot(S)\(S)" & 搭乗員[i,4],ファイル) <> "" Then
		搭乗員[i,4] = "\Bitmap\Pilot(S)\(S)" & 搭乗員[i,4]
	Else
		搭乗員[i,4] = "Pilot\" & 搭乗員[i,4]
	EndIf
Next
搭乗員[0,0] = 1
If Left(Info(UnitID(Args(1)),ユニットクラス),1) = "(" Then
	搭乗員[0,2] = 0
Else
	搭乗員[0,2] = 1
EndIf
Return

ユニット能力ひょうじ:
はいけいはりつけ
ユニットウィンドウ Args(1)
ユニット能力表示土台
Switch 搭乗員[0,2]
Case 0
	ユニット能力表示土台人間
Case 1
	ユニット能力表示土台機体
EndSw
If 搭乗員[0,1] > 1 Then
	HotPoint サブパイロット 333 140 128 128 次の人
EndIf
パイロットウィンドウ１ Args(2)
地形合計 Args(1)
ユニットステータスウィンドウ Args(1)
Refresh
Return

機体能力ひょうじ:
はいけいはりつけ
ユニットウィンドウ Args(1)
機体能力表示土台
Switch 搭乗員[0,2]
Case 0
	機体能力表示土台人間 Args(1)
Case 1
	機体能力表示土台機体 Args(1)
EndSw
If (リンクしてるの() = 5963) And (LinkWithEncyclopedia = "On") Then
	HotPoint 紹介 100 95 192 192 紹介
EndIf
ユニットステータスウィンドウ Args(1)
ユニット地形 Args(1)
強化パーツページ Args(1) Args(3)
ユニット特殊能力ページ Args(1) Args(2)
Refresh
Return

パイロット能力ひょうじ:
パイロット能力表示土台
Switch 搭乗員[0,2]
Case 0
	パイロット能力表示土台人間 Args(1)
Case 1
	パイロット能力表示土台機体 Args(1)
EndSw
If (リンクしてるの() = 5963) And (LinkWithEncyclopedia = "On") Then
	HotPoint 紹介 142 55 314 45 紹介
EndIf
If 搭乗員[0,1] > 1 Then
	HotPoint サブパイロット 19 73 128 128 次の人
EndIf
パイロットウィンドウ２ Args(1)
特殊技能ページ 搭乗員[Args(1),1] Args(2)
スペシャルパワー表示 搭乗員[Args(1),1]
各種数値表示 搭乗員[Args(1),1]
Refresh
Return

レーダーチャートパイロット能力ひょうじ:
レーダーチャートパイロット能力表示土台
Switch 搭乗員[0,2]
Case 0
	レーダーチャートパイロット能力表示土台人間 Args(1)
Case 1
	レーダーチャートパイロット能力表示土台機体 Args(1)
EndSw
If (リンクしてるの() = 5963) And (LinkWithEncyclopedia = "On") Then
	HotPoint 紹介 142 55 314 45 紹介
EndIf
If 搭乗員[0,1] > 1 Then
	HotPoint サブパイロット 19 73 128 128 次の人
EndIf
パイロットウィンドウ２ Args(1)
各種数値表示 搭乗員[Args(1),1]
レーダーチャート表示 搭乗員[Args(1),1]
Refresh
Return

武器性能ひょうじ:
武器性能表示土台
Switch 搭乗員[0,2]
Case 0
	武器性能表示土台人間 Args(1)
Case 1
	武器性能表示土台機体 Args(1)
EndSw
機隊と名前 Args(1)
武器性能ページ Args(1) Args(2) Args(3)
Refresh
Return

アビリティ性能ひょうじ:
アビリティ性能表示土台
Switch 搭乗員[0,2]
Case 0
	アビリティ性能表示土台人間
Case 1
	アビリティ性能表示土台機体
EndSw
機隊と名前 Args(1)
アビリティ性能ページ Args(1) Args(2) Args(3)
Refresh
Return

ユニット能力表示土台:
Font
PaintPicture \event\ユニット能力.png - - 透過
Line 14 296 239 455 B FrameColor1
Line 242 296 325 455 B FrameColor1
Line 328 68 465 455 B FrameColor1
Line 332 110 461 110 B FrameColor1
Line 14 64 465 64 B FrameColor2
Line 332 296 461 296 B FrameColor2
六角ボタン 24 FrameColor1 #c8c8c8
六角ボタン 134 FrameColor3 #4a4a4a
六角ボタン 244 FrameColor3 #4a4a4a
六角ボタン 354 FrameColor3 #4a4a4a
Font 12pt Ｐゴシック
yPaintString 20 307 "ＨＰ"
yPaintString 20 337 "ＥＮ"
yPaintString 20 367 "運動性"
yPaintString 20 397 "装甲値"
yPaintString 135 367 "移動力"
yPaintString 135 397 "タイプ"
yPaintString 135 427 "サイズ"
yPaintString 267 307 "地形"
yPaintString 338 307 "レベル"
yPaintString 338 337 "気力"
If DisplayPilotPoints = "On" Then
	yPaintString 338 367 "ＰＰ"
Else
	yPaintString 338 367 "性格"
EndIf
yPaintString 338 397 "ＳＰ"
yPaintString 338 427 "ＮＥＸＴ"
Font 11pt
bPaintString 245 337 "空"
bPaintString 245 367 "陸"
bPaintString 245 397 "海"
bPaintString 245 427 "宇"
Font
Return

ユニット能力表示土台機体:
Font
Font 10pt Ｐゴシック
PaintString 38 36 ユニット能力
Font #464646
PaintString 158 36 機体能力
PaintString 253 36 パイロット能力
PaintString 376 36 武器性能
Font 12pt
yPaintString 20 427 修理費
HotPoint 機体 134 24 102 37 機体能力
HotPoint パイロット 244 24 102 37 パイロット能力
HotPoint 武器 354 24 102 37 武器性能
Font
Return

ユニット能力表示土台人間:
Font
Font 10pt Ｐゴシック
PaintString 48 36 総合能力
Font #464646
PaintString 158 36 身体能力
PaintString 268 36 個人技能
PaintString 378 36 攻撃手段
Font 12pt
yPaintString 20 427 治療費
HotPoint 機体 134 24 102 37 身体能力
HotPoint パイロット 244 24 102 37 個人技能
HotPoint 武器 354 24 102 37 攻撃手段
Font
Return

ユニットウィンドウ:
Font
Font 14pt Ｐゴシック
If Info(ユニット,UnitID(Args(1)),特殊能力所有,全身画像) = 1 Then
	If LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,全身画像),3) = "" Then
		PaintPicture LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,全身画像),2) (100 + ShiftUnitGraphicX) (95 + ShiftUnitGraphicY) 192 192 透過
	Else
		Local YokoSize
		Local TateSize
		YokoSize = LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,全身画像),3)
		TateSize = LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,全身画像),4)
		If LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,全身画像),5) = "" Then
			YokoIti = 0
			TateIti = 0
		Else
			YokoIti = LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,全身画像),5)
			TateIti = LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,全身画像),6)
		EndIf
		PaintPicture LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,全身画像),2) (100 + ShiftEncUnitGraphicX + YokoIti + (192 - YokoSize ) / 2) (95 + ShiftEncUnitGraphicY + TateIti + (192 - TateSize ) / 2) YokoSize TateSize 透過
	EndIf
Else
	PaintPicture ("Unit\" & Info(ユニット,UnitID(Args(1)),グラフィック)) (100 + ShiftUnitGraphicX) (95 + ShiftUnitGraphicY) 192 192 透過
EndIf
wPaintString 25 70 Info(ユニット,UnitID(Args(1)),愛称)
Font
Return

パイロットウィンドウ１:
Font
Font 14pt Ｐゴシック
If TextWidth(搭乗員[Args(1),3]) > 132 Then
	Font 13pt Ｐゴシック
	If TextWidth(搭乗員[Args(1),3]) > 132 Then
		Font 12pt Ｐゴシック
		If TextWidth(搭乗員[Args(1),3]) > 132 Then
			Font 11pt Ｐゴシック
			If TextWidth(搭乗員[Args(1),3]) > 132 Then
				Font 10pt Ｐゴシック
			EndIf
		EndIf
	EndIf
EndIf
wPaintString Int(398 - TextWidth(搭乗員[Args(1),3]) / 2) 80 搭乗員[Args(1),3]
If ReservePict = "On" Then
	PaintPicture ReservePilotPicture 333 140 128 128
EndIf
PaintPicture 搭乗員[Args(1),4] 333 140 128 128
Font 12pt
wPaintString (423 - TextWidth(Level(搭乗員[Args(1),1]))) 307 Level(搭乗員[Args(1),1])
wPaintString (423 - TextWidth(Morale(搭乗員[Args(1),1]))) 337 Morale(搭乗員[Args(1),1])
If DisplayPilotPoints = "On" Then
	Local ぴーぴー
	If 表示用ＰＰ格納(搭乗員[Args(1),1]) = "" Then
		ぴーぴー = 0
	Else
		ぴーぴー = 表示用ＰＰ格納(搭乗員[Args(1),1])
	EndIf
	If InStr(ぴーぴー,"/") Then
		wPaintString (423 - TextWidth(Left(ぴーぴー,InStr(ぴーぴー,"/") - 1))) 367 ぴーぴー
	Else
		wPaintString (423 - TextWidth(ぴーぴー)) 367 ぴーぴー
	EndIf
Else
	wPaintString 396 367 Info(パイロット,搭乗員[Args(1),1],性格)
EndIf
wPaintString (423 - TextWidth(SP(搭乗員[Args(1),1]))) 397 "$(SP(搭乗員[Args(1),1]))/$(Info(パイロット,搭乗員[Args(1),1],最大ＳＰ))"
wPaintString (423 - TextWidth(500 - Info(パイロット,搭乗員[Args(1),1],累積経験値)))  427 (500 - Info(パイロット,搭乗員[Args(1),1],累積経験値))
Font
Return

地形合計:
Font
Font 12pt Ｐゴシック
Local UBApt
UBApt = ""
Local PApt
PApt = ""
Local unitApt
unitApt = Info(ユニット,UnitID(Args(1)),地形適応)
Local unitBApt
unitBApt = Info(ユニットデータ,Unit(Args(1)),地形適応)
Local pilotApt
pilotApt = Info(パイロット,Args(1),地形適応)
Local i
For i = 1 To 4
	If Mid(unitBApt,i,1) = "-" Then
		UBApt = UBApt & "E"
	Else
		UBApt = UBApt & Mid(unitBApt,i,1)
	EndIf
	If Mid(pilotApt,i,1) = "-" Then
		PApt = PApt & "E"
	Else
		PApt = PApt & Mid(pilotApt,i,1)
	EndIf
Next
For i = 1 To 4
	wPaintString 264 (307 + 30 * i) Mid(UBApt,i,1)
	wPaintString 277 (307 + 30 * i) "+"
	wPaintString 287 (307 + 30 * i) Mid(PApt,i,1)
	wPaintString 300 (307 + 30 * i) "="
	wPaintString 310 (307 + 30 * i) Mid(unitApt,i,1)
Next
Font
Return

ユニットステータスウィンドウ:
Font
Font 12pt Ｐゴシック
Local UnitHP
Local UnitHP2
UnitHP = HP(Args(1))
UnitHP2 = UnitHP
Local MaxHP
Local MaxHP2
MaxHP = Info(ユニット,UnitID(Args(1)),最大ＨＰ)
MaxHP2 = MaxHP
If ((170 * UnitHP / MaxHP) > 0) And ((170 * UnitHP / MaxHP) < 1) Then
	Line 57 324 58 324 #008000
	Line 57 325 58 325 #00ff00
Else
	Line 57 324 (57 + Int(170 * UnitHP / MaxHP)) 324 #008000
	Line 57 325 (57 + Int(170 * UnitHP / MaxHP)) 325 #00ff00
EndIf
Local UnitEN
UnitEN = EN(Args(1))
Local MaxEN
MaxEN = Info(ユニット,UnitID(Args(1)),最大ＥＮ)
If ((80 * UnitEN / MaxEN) > 0) And ((80 * UnitEN / MaxEN) < 1) Then
	Line 57 345 58 345 #ffa500
	Line 57 346 58 346 #ffff00
Else
	Line 57 345 (57 + Int(80 * UnitEN / MaxEN)) 345 #ffa500
	Line 57 346 (57 + Int(80 * UnitEN / MaxEN)) 346 #ffff00
EndIf
If Condition(UnitID(Args(1)),データ不明) = 1 Then
	MaxHP = "????"
	UnitHP = "????"
	MaxEN = "???"
	UnitEN = "???"
EndIf
If (UnitHP2 / MaxHP2) <= 0.125 Then
	rPaintString (141 - TextWidth(MaxHP)) 302 "$(UnitHP)"
	wPaintString 141 302 "/$(MaxHP)"
ElseIf (UnitHP2 / MaxHP2) <= 0.25 Then
	oPaintString (141 - TextWidth(MaxHP)) 302 "$(UnitHP)"
	wPaintString 141 302 "/$(MaxHP)"
Else
	wPaintString (141 - TextWidth(MaxHP)) 302 "$(UnitHP)/$(MaxHP)"
EndIf
wPaintString (183 - TextWidth(MaxEN)) 337 "$(UnitEN)/$(MaxEN)"
wPaintString (126 - TextWidth(Info(ユニット,UnitID(Args(1)),運動性))) 367 Info(ユニット,UnitID(Args(1)),運動性)
wPaintString (126 - TextWidth(Info(ユニット,UnitID(Args(1)),装甲))) 397 Info(ユニット,UnitID(Args(1)),装甲)
wPaintString (126 - TextWidth(Info(ユニット,UnitID(Args(1)),修理費))) 427 Info(ユニット,UnitID(Args(1)),修理費)
wPaintString (221 - TextWidth(Info(ユニット,UnitID(Args(1)),移動力))) 367 Info(ユニット,UnitID(Args(1)),移動力)
wPaintString (218 - TextWidth(Info(ユニット,UnitID(Args(1)),サイズ))) 427 Info(ユニット,UnitID(Args(1)),サイズ)
Font 10pt
Local 地形タイプ
地形タイプ = Info(ユニット,UnitID(Args(1)),移動可能地形)
If 地形タイプ = 空 Then
	wPaintString 190 397 空専用
ElseIf 地形タイプ = 陸 Then
	wPaintString 190 397 陸専用
ElseIf 地形タイプ = 水 Then
	wPaintString 190 397 水専用
ElseIf 地形タイプ = 宇宙 Then
	wPaintString 180 397 宇宙専用
ElseIf Len(地形タイプ) = 5 Then
	wPaintString 180 397 空陸水地
Else
	If InStr(地形タイプ,"地") <> 0 Then
		地形タイプ = Left(地形タイプ,InStr(地形タイプ,"地"))
	EndIf
	If Len(地形タイプ) = 4 Then
		wPaintString 180 397 地形タイプ
	ElseIf Len(地形タイプ) = 3 Then
		wPaintString 190 397 地形タイプ
	Else
		wPaintString 200 397 地形タイプ
	EndIf
EndIf
Font
Return

機体能力表示土台:
Font
PaintPicture \event\機体能力.png - - 透過
Line 14 296 239 455 B FrameColor1
Line 242 296 325 455 B FrameColor1
Line 328 68 465 455 B FrameColor1
Line 14 64 465 64 B FrameColor2
Line 332 296 461 296 B FrameColor2
六角ボタン 24 FrameColor3 #4a4a4a
六角ボタン 134 FrameColor1 #c8c8c8
六角ボタン 244 FrameColor3 #4a4a4a
六角ボタン 354 FrameColor3 #4a4a4a
Font 10pt Ｐゴシック
yPaintString 20 190 吸収
yPaintString 20 210 無効
yPaintString 20 230 耐性
yPaintString 20 250 弱点
yPaintString 20 270 特無
Font 12pt
yPaintString 20 307 ＨＰ
yPaintString 20 337 ＥＮ
yPaintString 20 367 運動性
yPaintString 20 397 装甲値
yPaintString 135 367 移動力
yPaintString 135 397 タイプ
yPaintString 135 427 サイズ
yPaintString 267 307 地形
yPaintString 338 75 特殊能力
bPaintString 255 337 空
bPaintString 255 367 陸
bPaintString 255 397 海
bPaintString 255 427 宇
Font
Return

機体能力表示土台人間:
Font
Font 10pt Ｐゴシック
PaintString 158 36 身体能力
Font #464646
PaintString 48 36 総合能力
PaintString 268 36 個人技能
PaintString 378 36 攻撃手段
Font 12pt
yPaintString 20 427 治療費
yPaintString 338 307 アイテム
If Info(パイロット,Args(1),愛称) <> パイロット不在 Then
	HotPoint ユニット 24 24 102 37 総合能力
	HotPoint パイロット 244 24 102 37 個人技能
EndIf
HotPoint 武器 354 24 102 37 攻撃手段
Font
Return

機体能力表示土台機体:
Font
Font 10pt Ｐゴシック
PaintString 158 36 機体能力
Font #464646
PaintString 38 36 ユニット能力
PaintString 253 36 パイロット能力
PaintString 376 36 武器性能
Font 12pt
yPaintString 20 427 修理費
yPaintString 338 307 強化パーツ
If Info(パイロット,Args(1),愛称) <> パイロット不在 Then
	HotPoint ユニット 24 24 102 37 ユニット能力
	HotPoint パイロット 244 24 102 37 パイロット能力
EndIf
HotPoint 武器 354 24 102 37 武器性能
Font
Return

ユニット地形:
Font
Font 12pt Ｐゴシック
Local BApt
BApt = Info(ユニットデータ,Unit(Args(1)),地形適応)
Local i
For i = 1 To 4
	If Mid(BApt,i,1) = "-" Then
		wPaintString 285 (307 + 30 * i) "E"
	Else
		wPaintString 285 (307 + 30 * i) Mid(BApt,i,1)
	EndIf
Next
Font
Return

強化パーツページ:
Local i
Local j
If 真アイテム番[判定済み] <> 1 Then
	j = 0
	For i = 1 To Info(ユニット,UnitID(Args(1)),アイテム数)
		If ((Info(アイテム,Item(Args(1),i),装備個所) = "強化パーツ") OR (Info(アイテム,Item(Args(1),i),装備個所) = "アイテム")) Then
			Incr j
			真アイテム番[j] = i
		EndIf
	Next
	真アイテム番[アイテム数] = Info(ユニット,UnitID(Args(1)),最大アイテム数)
	For i = (j + 1) To 真アイテム番[アイテム数]
		真アイテム番[i] = 空き
	Next
	真アイテム番[ページ数] = ((真アイテム番[アイテム数] - 1) \ 4 + 1)
	真アイテム番[判定済み] = 1
EndIf
強化パーツ表示 Args(1) Args(2) 真アイテム番[ページ数]
If 真アイテム番[ページ数] > 1 Then
	PaintPicture \event\次のページへ.png 451 309 透過
	HotPoint アイテム次のページ 329 303 136 30 次のページ
EndIf
Font
Return

強化パーツ表示:
Font
Font 9pt Ｐゴシック
Local アイテムのあいしょう
Local i
Local te
Local どこまで
If Args(2) = Args(3) Then
	どこまで = (真アイテム番[アイテム数] - (Args(2) - 1) * 4)
Else
	どこまで = 4
EndIf
For i = 1 To どこまで
	If 真アイテム番[((Args(2) - 1) * 4 + i)] = "空き" Then
		wPaintString 338 (307 + i * 30) "−−−−−−−−"
	Else
		アイテムのあいしょう = Nickname(Item(Args(1),真アイテム番[((Args(2) - 1) * 4 + i)]))
		If TextWidth(アイテムのあいしょう) > 124 Then
			For te = 1 To Len(アイテムのあいしょう)
				If TextWidth(Left(アイテムのあいしょう,te)) > 124 Then
					wPaintString 338 (307 + i * 30) Left(アイテムのあいしょう,(te - 1))
					wPaintString 338 (319 + i * 30) Mid(アイテムのあいしょう,te)
					Break
				EndIf
			Next
		Else
			wPaintString 338 (307 + i * 30) アイテムのあいしょう
		EndIf
		HotPoint "$(真アイテム番[((Args(2) - 1) * 4 + i)])" 329 (300 + i * 30) 136 30 "$(アイテムのあいしょう)"
	EndIf
Next
Font
Return

ユニット特殊能力ページ:
Local i
Font
Font 10pt Ｐゴシック
If ターン数 = 0 Then
	yPaintString 20 170 "ランク"
	wPaintString 60 170 Rank(UnitID(Args(1)))
EndIf
If 真特能番[判定ずみ] <> 1 Then
	If Info(ユニット,UnitID(Args(1)),特殊能力所有,格闘武器) = 1 Then
		真特能番[きりはらい] = 1
	Else
		For i = 1 To Info(ユニット,UnitID(Args(1)),武器数)
			If Info(ユニット,UnitID(Args(1)),武器,i,属性所有,"武") = 1 Then
				真特能番[きりはらい] = 1
				Break
			EndIf
		Next
	EndIf
	If シールド判定(Args(1)) = 1 Then
		真特能番[たて] = 1
	EndIf
	If Info(ユニット,UnitID(Args(1)),特殊能力所有,迎撃武器) = 1 Then
		真特能番[げいげき] = 1
	Else
		For i = 1 To Info(ユニット,UnitID(Args(1)),武器数)
			If (移動後攻撃可(Args(1),i) AND 射撃武器(Args(1),i) AND 弾数ＥＮ(Args(1),i)) = 1 Then
				真特能番[げいげき] = 1
				Break
			EndIf
		Next
	EndIf
	If Info(ユニット,UnitID(Args(1)),特殊能力所有,修理装置) = 1 Then
		真特能番[しゅうり] = 1
	EndIf
	If Info(ユニット,UnitID(Args(1)),特殊能力所有,補給装置) = 1 Then
		真特能番[ほきゅう] = 1
	EndIf
	Set 真特能番[特殊能力数] 0
	Local k
	Local j
	j = 1
	Local Skill
	Local 複数
	For i = 1 To Info(ユニット,UnitID(Args(1)),特殊能力数)
		Skill = Info(ユニット,UnitID(Args(1)),特殊能力,i)
		If ((Skill = アーマー) OR (Skill = レジスト) OR (Skill = 攻撃回避)) = 1 Then
			If Info(ユニット,UnitID(Args(1)),特殊能力レベル,i) > 0 Then
				真特能番[耐性] = 真特能番[耐性] & LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,i),2)
			ElseIf Info(ユニット,UnitID(Args(1)),特殊能力レベル,i) < 0 Then
				真特能番[弱点] = 真特能番[弱点] & LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,i),2)
			EndIf
		EndIf



		If Skill = 修理装置 Then
			真特能番[しゅうり,1] = i
		ElseIf Skill = 補給装置 Then
			真特能番[ほきゅう,1] = i
		EndIf



		If ((((Skill = "合体") AND (IsDefined(LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,i),2)) = 0)) = 0) AND (Info(ユニット,UnitID(Args(1)),特殊能力名称,i) <> "") AND (((Skill = "シールド") OR (Skill = "エネルギーシールド") OR (Skill = "小型シールド") OR (Skill = "大型シールド") OR (Skill = "アクティブシールド") OR (Skill = "バリアシールド") OR (Skill = "アクティブフィールド") OR (Skill = "ビームシールド") OR (Skill = "ピンポイントバリア") OR (Skill = "盾") OR (Skill = "アクティブプロテクション") OR (Skill = "修理装置") OR (Skill = "補給装置")) = 0) AND (Skill <> "強化パーツ")) = 1 Then
			If i > 1 Then
				複数 = 0
				For k = 1 To (i - 1)
					If Info(ユニット,UnitID(Args(1)),特殊能力名称,i) = Info(ユニット,UnitID(Args(1)),特殊能力名称,k) Then
						Incr 複数
					EndIf
				Next
				If 複数 = 0 Then
					真特能番[真特能番[特殊能力数] + 1] = i
					Incr 真特能番[特殊能力数]
				EndIf
			Else
				真特能番[真特能番[特殊能力数] + 1] = i
				Incr 真特能番[特殊能力数]
			EndIf
		EndIf
	Next
	真特能番[ページ数] = ((真特能番[特殊能力数] - 1) \ 4 + 1)
	真特能番[判定ずみ] = 1
	If Info(ユニット,UnitID(Args(1)),特殊能力所有,耐性) = 1 Then
		If InStr(Info(ユニット,UnitID(Args(1)),特殊能力データ,耐性),"非表示") Then
			真特能番[耐性] = 真特能番[耐性] & "?"
		Else
			真特能番[耐性] = 真特能番[耐性] & Info(ユニット,UnitID(Args(1)),特殊能力データ,耐性)
		EndIf
	EndIf
	If Info(ユニット,UnitID(Args(1)),特殊能力所有,弱点) = 1 Then
		If InStr(Info(ユニット,UnitID(Args(1)),特殊能力データ,弱点),"非表示") Then
			真特能番[弱点] = 真特能番[弱点] & "?"
		Else
			真特能番[弱点] = 真特能番[弱点] & Info(ユニット,UnitID(Args(1)),特殊能力データ,弱点)
		EndIf
	EndIf
EndIf
If Info(ユニット,UnitID(Args(1)),特殊能力所有,吸収) = 1 Then
	If InStr(Info(ユニット,UnitID(Args(1)),特殊能力データ,吸収),"非表示") Then
		wPaintString 55 190 "？"
	Else
		wPaintString 55 190 Info(ユニット,UnitID(Args(1)),特殊能力データ,吸収)
	EndIf
Else
	wPaintString 55 190 "-"
EndIf
If Info(ユニット,UnitID(Args(1)),特殊能力所有,無効化) = 1 Then
	If InStr(Info(ユニット,UnitID(Args(1)),特殊能力データ,無効化),"非表示") Then
		wPaintString 55 210 "？"
	Else
		wPaintString 55 210 Info(ユニット,UnitID(Args(1)),特殊能力データ,無効化)
	EndIf
Else
	wPaintString 55 210 "-"
EndIf
If 真特能番[耐性] <> "" Then
	wPaintString 55 230 真特能番[耐性]
Else
	wPaintString 55 230 "-"
EndIf
If 真特能番[弱点] <> "" Then
	wPaintString 55 250 真特能番[弱点]
Else
	wPaintString 55 250 "-"
EndIf
If Info(ユニット,UnitID(Args(1)),特殊能力所有,特殊効果無効化) = 1 Then
	If InStr(Info(ユニット,UnitID(Args(1)),特殊能力データ,特殊効果無効化),"非表示") Then
		wPaintString 55 270 "？"
	Else
		wPaintString 55 270 Info(ユニット,UnitID(Args(1)),特殊能力データ,特殊効果無効化)
	EndIf
Else
	wPaintString 55 270 "-"
EndIf
ユニット特殊能力表示 Args(1) Args(2) 真特能番[ページ数]
たてとかの
If 真特能番[ページ数] > 1 Then
	PaintPicture \event\次のページへ.png 451 75 透過
	HotPoint 次のページ 329 69 136 30 次のページ
EndIf
Font
Return

たてとかの:
If 真特能番[きりはらい] = 1 Then
	If (Skill(搭乗員[1,1],切り払い) <> 0) Then
		PaintPicture \event\切り払い.png 333 99 24 24 透過
	Else
		PaintPicture \event\切り払い.png 333 99 24 24 透過 夕焼け
	EndIf
EndIf
If 真特能番[げいげき] = 1 Then
	If (Skill(搭乗員[1,1],迎撃) <> 0) Then
		PaintPicture \event\迎撃.png 385 99 24 24 透過
	Else
		PaintPicture \event\迎撃.png 385 99 24 24 透過 夕焼け
	EndIf
EndIf
If 真特能番[たて] = 1 Then
	If (Skill(搭乗員[1,1],Ｓ防御) <> 0) Then
		PaintPicture \event\シールド.png 359 99 24 24 透過
	Else
		PaintPicture \event\シールド.png 359 99 24 24 透過 夕焼け
	EndIf
	HotPoint 盾 359 99 24 24 シールド
EndIf
If 真特能番[しゅうり] = 1 Then
	PaintPicture \event\修理.png 411 99 24 24 透過
	HotPoint 修理 411 99 24 24 修理装置
EndIf
If 真特能番[ほきゅう] = 1 Then
	PaintPicture \event\補給.png 437 99 24 24 透過
	HotPoint 補給 437 99 24 24 補給装置
EndIf
Return

ユニット特殊能力表示:
Font
Font 11pt Ｐゴシック
Local どこまで
Local te
Local i
If Args(2) = Args(3) Then
	どこまで = (真特能番[特殊能力数] - (Args(2) - 1) * 4)
Else
	どこまで = 4
EndIf
For i = 1 To どこまで
	If TextWidth(Info(ユニット,UnitID(Args(1)),特殊能力名称,真特能番[((Args(2) - 1) * 4 + i)])) > 128 Then
		For te = 1 To Len(Info(ユニット,UnitID(Args(1)),特殊能力名称,真特能番[((Args(2) - 1) * 4 + i)]))
			If TextWidth(Left(Info(ユニット,UnitID(Args(1)),特殊能力名称,真特能番[((Args(2) - 1) * 4 + i)]),te)) > 128 Then
				wPaintString 336 (102 + i * 38) Left(Info(ユニット,UnitID(Args(1)),特殊能力名称,真特能番[((Args(2) - 1) * 4 + i)]),(te - 1))
				wPaintString 336 (117 + i * 38) Mid(Info(ユニット,UnitID(Args(1)),特殊能力名称,真特能番[((Args(2) - 1) * 4 + i)]),te)
				Break
			EndIf
		Next
	Else
		wPaintString 336 (102 + i * 38) Info(ユニット,UnitID(Args(1)),特殊能力名称,真特能番[((Args(2) - 1) * 4 + i)])
	EndIf
	HotPoint "番号$(真特能番[((Args(2) - 1) * 4 + i)])" 330 (94 + i * 38) 134 38 Info(ユニット,UnitID(Args(1)),特殊能力名称,真特能番[((Args(2) - 1) * 4 + i)])
Next
Return

たてのかいせつ:
Local i
For i = 1 To Info(ユニット,UnitID(Args(1)),特殊能力数)
	If (Info(ユニット,UnitID(Args(1)),特殊能力,i) = "シールド" OR Info(ユニット,UnitID(Args(1)),特殊能力,i) = "エネルギーシールド" OR Info(ユニット,UnitID(Args(1)),特殊能力,i) = "小型シールド" OR Info(ユニット,UnitID(Args(1)),特殊能力,i) = "大型シールド" OR Info(ユニット,UnitID(Args(1)),特殊能力,i) = "アクティブシールド" OR Info(ユニット,UnitID(Args(1)),特殊能力,i) = "バリアシールド" OR Info(ユニット,UnitID(Args(1)),特殊能力,i) = "アクティブフィールド" OR Info(ユニット,UnitID(Args(1)),特殊能力,i) = "ビームシールド" OR Info(ユニット,UnitID(Args(1)),特殊能力,i) = "ピンポイントバリア" OR Info(ユニット,UnitID(Args(1)),特殊能力,i) = "盾" OR Info(ユニット,UnitID(Args(1)),特殊能力,i) = "アクティブプロテクション") Then
		Talk システム
		<B>$(Info(ユニット,UnitID(Args(1)),特殊能力名称,i))</B>;$(Info(ユニット,UnitID(Args(1)),特殊能力解説,i))
		End
	EndIf
Next
Return

シールド判定:
Return (Info(ユニット,UnitID(Args(1)),特殊能力所有,シールド) OR Info(ユニット,UnitID(Args(1)),特殊能力所有,エネルギーシールド) OR Info(ユニット,UnitID(Args(1)),特殊能力所有,小型シールド) OR Info(ユニット,UnitID(Args(1)),特殊能力所有,大型シールド) OR Info(ユニット,UnitID(Args(1)),特殊能力所有,アクティブシールド) OR Info(ユニット,UnitID(Args(1)),特殊能力所有,バリアシールド) OR Info(ユニット,UnitID(Args(1)),特殊能力所有,アクティブフィールド) OR Info(ユニット,UnitID(Args(1)),特殊能力所有,ビームシールド) OR Info(ユニット,UnitID(Args(1)),特殊能力所有,ピンポイントバリア) OR Info(ユニット,UnitID(Args(1)),特殊能力所有,盾) OR Info(ユニット,UnitID(Args(1)),特殊能力所有,アクティブプロテクション))

パイロット能力表示土台:
Font
はいけいはりつけ
If DisplayShootingDownPoints = "On" Then
	PaintPicture \event\パイロット能力2.png - - 透過
Else
	PaintPicture \event\パイロット能力.png - - 透過
EndIf
Line 14 68 151 205 B FrameColor1
Line 154 110 465 205 B FrameColor1
Line 14 208 151 455 B FrameColor1
Line 154 208 284 455 B FrameColor1
Line 287 208 465 455 B FrameColor1
Line 291 346 461 346 B FrameColor1
Line 14 64 465 64 B FrameColor2
六角ボタン 24 FrameColor3 #4a4a4a
六角ボタン 134 FrameColor3 #4a4a4a
六角ボタン 244 FrameColor1 #c8c8c8
六角ボタン 354 FrameColor3 #4a4a4a
Font 12pt Ｐゴシック
yPaintString 405 83 Ｌｖ
yPaintString 160 120 気力
If DisplayPilotPoints = "On" Then
	yPaintString 160 150 "ＰＰ"
Else
	yPaintString 160 150 性格
EndIf
yPaintString 160 180 ＳＰ
yPaintString 293 150 経験値
yPaintString 20 215 特殊技能
yPaintString 160 215 精神ｺﾏﾝﾄﾞ/ＳＰ
yPaintString 293 215 能力
yPaintString 293 320 地形
yPaintString 293 355 戦闘BGM
If DisplayShootingDownPoints = "On" Then
	yPaintString 293 180 "撃墜数"
EndIf
Font 10pt
yPaintString 293 121 次のﾚﾍﾞﾙまで
Font 12pt
bPaintString 333 215 格闘
bPaintString 333 250 技量
bPaintString 333 285 回避
bPaintString 400 215 射撃
If DisplayDefenseValue = "On" Then
	bPaintString 400 250 防御
Else
	bPaintString 400 250 反応
EndIf
bPaintString 400 285 命中
Font 11pt
bPaintString 332 320 空
bPaintString 366 320 陸
bPaintString 400 320 海
bPaintString 434 320 宇
Font
Return

パイロット能力表示土台人間:
Font
Font 10pt Ｐゴシック
PaintString 268 36 個人技能
Font #464646
PaintString 48 36 総合能力
PaintString 158 36 身体能力
PaintString 378 36 攻撃手段
HotPoint ユニット 24 24 102 37 総合能力
HotPoint 機体 134 24 102 37 身体能力
HotPoint レーダー 244 24 102 37 レーダーチャート
HotPoint 武器 354 24 102 37 攻撃手段
Font
Return

パイロット能力表示土台機体:
Font
Font 10pt Ｐゴシック
PaintString 253 36 パイロット能力
Font #464646
PaintString 38 36 ユニット能力
PaintString 158 36 機体能力
PaintString 376 36 武器性能
HotPoint ユニット 24 24 102 37 ユニット能力
HotPoint 機体 134 24 102 37 機体能力
HotPoint レーダー 244 24 102 37 レーダーチャート
HotPoint 武器 354 24 102 37 武器性能
Font
Return

レーダーチャートパイロット能力表示土台:
Font
はいけいはりつけ
If DisplayShootingDownPoints = "On" Then
	PaintPicture \event\パイロット能力2.png - - 透過
Else
	PaintPicture \event\パイロット能力.png - - 透過
EndIf
Line 14 68 151 205 B FrameColor1
Line 154 110 465 205 B FrameColor1
Line 14 208 284 455 B FrameColor1
Line 287 208 465 455 B FrameColor1
Line 291 346 461 346 B FrameColor1
Line 14 64 465 64 B FrameColor2
六角ボタン 24 FrameColor3 #4a4a4a
六角ボタン 134 FrameColor3 #4a4a4a
六角ボタン 244 FrameColor1 #c8c8c8
六角ボタン 354 FrameColor3 #4a4a4a
Font 12pt Ｐゴシック
yPaintString 405 83 Ｌｖ
yPaintString 160 120 気力
If DisplayPilotPoints = "On" Then
	yPaintString 160 150 "ＰＰ"
Else
	yPaintString 160 150 性格
EndIf
yPaintString 160 180 ＳＰ
yPaintString 293 150 経験値
yPaintString 293 215 能力
yPaintString 293 320 地形
yPaintString 293 355 戦闘BGM
If DisplayShootingDownPoints = "On" Then
	yPaintString 293 180 "撃墜数"
EndIf
Font 10pt
yPaintString 293 121 次のﾚﾍﾞﾙまで
Font 12pt
bPaintString 333 215 格闘
bPaintString 333 250 技量
bPaintString 333 285 回避
bPaintString 400 215 射撃
If DisplayDefenseValue = "On" Then
	bPaintString 400 250 防御
Else
	bPaintString 400 250 反応
EndIf
bPaintString 400 285 命中
Font 11pt
bPaintString 332 320 空
bPaintString 366 320 陸
bPaintString 400 320 海
bPaintString 434 320 宇
yPaintString 125 215 【命中】
yPaintString 15 267 【格闘】
If DisplayDefenseValue = "On" Then
	yPaintString 15 380 【防御】
Else
	yPaintString 15 380 【反応】
EndIf
yPaintString 125 435 【技量】
yPaintString 236 380 【回避】
yPaintString 236 267 【射撃】
Font
DrawWidth 9
Circle 149 331 46 #808080
Circle 149 331 92 #808080
DrawWidth 1
Circle 149 331 96 #ffffff
DrawWidth 1
Line 149 236 149 426 B #ff0000
Line 66 283 232 379 #ff0000
Line 66 379 232 283 #ff0000
Return

レーダーチャートパイロット能力表示土台人間:
Font
Font 10pt Ｐゴシック
PaintString 268 36 個人技能
Font #464646
PaintString 48 36 総合能力
PaintString 158 36 身体能力
PaintString 378 36 攻撃手段
HotPoint ユニット 24 24 102 37 総合能力
HotPoint 機体 134 24 102 37 身体能力
HotPoint パイロット 244 24 102 37 特殊技能・ＳＰ
HotPoint 武器 354 24 102 37 攻撃手段
Font
Return

レーダーチャートパイロット能力表示土台機体:
Font
Font 10pt Ｐゴシック
PaintString 253 36 パイロット能力
Font #464646
PaintString 38 36 ユニット能力
PaintString 158 36 機体能力
PaintString 376 36 武器性能
HotPoint ユニット 24 24 102 37 ユニット能力
HotPoint 機体 134 24 102 37 機体能力
HotPoint パイロット 244 24 102 37 特殊技能・ＳＰ
HotPoint 武器 354 24 102 37 武器性能
Font
Return

パイロットウィンドウ２:
Font
Font 12pt Ｐゴシック
If TextWidth(搭乗員[Args(1),2]) > 249 Then
	Font 11pt
	If TextWidth(搭乗員[Args(1),2]) > 249 Then
		Font 10pt
		wPaintString 160 85 搭乗員[Args(1),2]
	Else
		wPaintString 160 84 搭乗員[Args(1),2]
	EndIf
Else
	wPaintString 160 83 搭乗員[Args(1),2]
EndIf
Font 12pt Ｐゴシック
If ReservePict = "On" Then
	PaintPicture ReservePilotPicture 19 73 128 128
EndIf
PaintPicture 搭乗員[Args(1),4] 19 73 128 128
wPaintString (458 - TextWidth(Level(搭乗員[Args(1),1]))) 83 Level(搭乗員[Args(1),1])
wPaintString 210 120 Morale(搭乗員[Args(1),1])
#wPaintString 210 150 Info(パイロット,搭乗員[Args(1),1],性格)
wPaintString 210 180 "$(SP(搭乗員[Args(1),1]))/$(Info(パイロット,搭乗員[Args(1),1],最大ＳＰ))"
wPaintString (423 - TextWidth(500 - Info(パイロット,搭乗員[Args(1),1],累積経験値)))  120 (500 - Info(パイロット,搭乗員[Args(1),1],累積経験値))
wPaintString (423 - TextWidth(500 * Level(搭乗員[Args(1),1]) - 500 + Info(パイロット,搭乗員[Args(1),1],累積経験値)))  150 (500 * Level(搭乗員[Args(1),1]) - 500 + Info(パイロット,搭乗員[Args(1),1],累積経験値))

If DisplayPilotPoints = "On" Then
	Local ぴーぴー
	If 表示用ＰＰ格納(搭乗員[Args(1),1]) = "" Then
		ぴーぴー = 0
	Else
		ぴーぴー = 表示用ＰＰ格納(搭乗員[Args(1),1])
	EndIf
	wPaintString 210 150 ぴーぴー
Else
	wPaintString 210 150 Info(パイロット,搭乗員[Args(1),1],性格)
EndIf

If DisplayShootingDownPoints = "On" Then
	If 撃墜数[搭乗員[Args(1),1]] >= AcePoints Then
		PaintPicture \event\ＡＣＥ.png 435 175 透過
	EndIf
	Local げきつい
	If 表示用撃墜数格納(搭乗員[Args(1),1]) = "" Then
		げきつい = 0
	Else
		げきつい = 表示用撃墜数格納(搭乗員[Args(1),1])
	EndIf
	wPaintString (423 - TextWidth(げきつい & "機")) 180 (げきつい & "機")
Else
	If Info(オプション,２回行動能力使用) = "On" Then
		If Info(パイロット,搭乗員[Args(1),1],特殊能力所有,"２回行動") = 1 Then
			PaintPicture \event\二回行動.png 435 175 透過
		EndIf
	ElseIf Info(パイロット,搭乗員[Args(1),1],反応) > 199 Then
		PaintPicture \event\二回行動.png 435 175 透過
	EndIf
	Line 295 188 (295 + 125 * Info(パイロット,搭乗員[Args(1),1],累積経験値) / 500) 188 #008080
	Line 295 189 (295 + 125 * Info(パイロット,搭乗員[Args(1),1],累積経験値) / 500) 189 #00ffff
EndIf
Font
Return

特殊技能ページ:
If 真技能番[Args(1),ページ数] < 1 Then
	Local i
	Set 真技能番[Args(1),技能数] 0
	For i = 1 To Info(パイロット,Args(1),特殊能力数)
		If (Info(パイロット,Args(1),特殊能力名称,i) <> "") AND (Info(パイロット,Args(1),特殊能力名称,i) <> "非表示") AND (デフォルト非非表示(Args(1),i) = 1) Then
			真技能番[Args(1),真技能番[Args(1),技能数] + 1] = i
			Incr 真技能番[Args(1),技能数]
		EndIf
	Next
	真技能番[Args(1),ページ数] = ((真技能番[Args(1),技能数] - 1) \ 6 + 1)
EndIf
特殊技能表示 Args(1) Args(2)
If 真技能番[Args(1),ページ数] > 1 Then
	PaintPicture \event\次のページへ.png 136 214 透過
	HotPoint 次のページ 15 209 136 28 次のページ
EndIf
Return

デフォルト非非表示:
Local re
Local skill
skill = Info(パイロット,Args(1),特殊能力,Args(2))
Switch skill
Case 追加レベル 格闘ＵＰ 射撃ＵＰ 命中ＵＰ 回避ＵＰ 技量ＵＰ 反応ＵＰ ＳＰＵＰ 格闘ＤＯＷＮ 射撃ＤＯＷＮ 命中ＤＯＷＮ 回避ＤＯＷＮ 技量ＤＯＷＮ 反応ＤＯＷＮ ＳＰＤＯＷＮ メッセージ
	re = 0
Case Else
	re = 1
EndSw
Return re


特殊技能表示:
Font
Font 12pt Ｐゴシック
Local i
Local Pskill
Local te
For i = 1 To 6
	Font 12pt Ｐゴシック
	Pskill = Info(パイロット,Args(1),特殊能力名称,真技能番[Args(1),((Args(2) - 1) * 6 + i)])
	If Pskill <> "" Then
		If TextWidth(Pskill) > 130 Then
			Font 11pt Ｐゴシック
			If TextWidth(Pskill) > 130 Then
				Font 10pt Ｐゴシック
				If TextWidth(Pskill) > 130 Then
					For te = 1 To Len(Pskill)
						If TextWidth(Left(Pskill,te)) > 130 Then
							wPaintString 20 (215 + i * 35) Left(Pskill,(te - 1))
							wPaintString 20 (228 + i * 35) Mid(Pskill,te)
							Break
						EndIf
					Next
				Else
					wPaintString 20 (215 + i * 35) Pskill
				EndIf
			Else
				wPaintString 20 (215 + i * 35) Pskill
			EndIf
		Else
			wPaintString 20 (215 + i * 35) Pskill
		EndIf
		HotPoint "番号$(真技能番[Args(1),((Args(2) - 1) * 6 + i)])" 15 (204 + i * 35) 136 35 Pskill
	Else
		wPaintString 20 (215 + i * 35) "−−−−−−−"
	EndIf
Next
Font
Return

スペシャルパワー表示:
Font
Local i
Font 12pt Ｐゴシック
For i = 1 To 6
	If (LIndex(Info(パイロット,Args(1),スペシャルパワー),i) <> "") OR (LIndex(Info(パイロット,Args(1),精神コマンド),i) <> "") Then
		If SP(Args(1)) < Info(Args(1),スペシャルパワーコスト,LIndex(Info(パイロット,Args(1),スペシャルパワー),i)) Then
			rPaintString 160 (215 + i * 35) LIndex(Info(パイロット,Args(1),スペシャルパワー),i)
			rPaintString (274 - 9 * Len(Info(Args(1),スペシャルパワーコスト,LIndex(Info(パイロット,Args(1),スペシャルパワー),i)))) (215 + i * 35) Info(Args(1),スペシャルパワーコスト,LIndex(Info(パイロット,Args(1),スペシャルパワー),i))
			rPaintString 240 (215 + i * 35) "("
			rPaintString 274 (215 + i * 35) ")"
		Else
			wPaintString 160 (215 + i * 35) LIndex(Info(パイロット,Args(1),スペシャルパワー),i)
			wPaintString (274 - 9 * Len(Info(Args(1),スペシャルパワーコスト,LIndex(Info(パイロット,Args(1),スペシャルパワー),i)))) (215 + i * 35) Info(Args(1),スペシャルパワーコスト,LIndex(Info(パイロット,Args(1),スペシャルパワー),i))
			wPaintString 240 (215 + i * 35) "("
			wPaintString 274 (215 + i * 35) ")"
		EndIf
		HotPoint i 155 (204 + i * 35) 129 35 LIndex(Info(パイロット,Args(1),スペシャルパワー),i)
	Else
		wPaintString 160 (215 + i * 35) "？？？？"
		wPaintString 249 (215 + i * 35) "???"
		wPaintString 240 (215 + i * 35) "("
		wPaintString 274 (215 + i * 35) ")"
	EndIf
Next
Font
Return

各種数値表示:
Font
Font 12pt Ｐゴシック
If Info(パイロットデータ,Args(1),格闘) = 1 Then
	wPaintString 374 215 "--"
Else
	If Info(パイロット,Args(1),格闘) > Info(パイロット,Args(1),格闘基本値) Then
		gPaintString (397 - TextWidth(Info(パイロット,Args(1),格闘))) 215 Info(パイロット,Args(1),格闘)
	Else
		wPaintString (397 - TextWidth(Info(パイロット,Args(1),格闘))) 215 Info(パイロット,Args(1),格闘)
	EndIf
EndIf
If Info(パイロットデータ,Args(1),技量) = 1 Then
	wPaintString 374 250 "--"
Else
	If Info(パイロット,Args(1),技量) > Info(パイロット,Args(1),技量基本値) Then
		gPaintString (397 - TextWidth(Info(パイロット,Args(1),技量))) 250 Info(パイロット,Args(1),技量)
	Else
		wPaintString (397 - TextWidth(Info(パイロット,Args(1),技量))) 250 Info(パイロット,Args(1),技量)
	EndIf
EndIf
If Info(パイロットデータ,Args(1),回避) = 1 Then
	wPaintString 374 285 "--"
Else
	If Info(パイロット,Args(1),回避) > Info(パイロット,Args(1),回避基本値) Then
		gPaintString (397 - TextWidth(Info(パイロット,Args(1),回避))) 285 Info(パイロット,Args(1),回避)
	Else
		wPaintString (397 - TextWidth(Info(パイロット,Args(1),回避))) 285 Info(パイロット,Args(1),回避)
	EndIf
EndIf
If Info(パイロットデータ,Args(1),射撃) = 1 Then
	wPaintString 441 215 "--"
Else
	If Info(パイロット,Args(1),射撃) > Info(パイロット,Args(1),射撃基本値) Then
		gPaintString (464 - TextWidth(Info(パイロット,Args(1),射撃))) 215 Info(パイロット,Args(1),射撃)
	Else
		wPaintString (464 - TextWidth(Info(パイロット,Args(1),射撃))) 215 Info(パイロット,Args(1),射撃)
	EndIf
EndIf
If DisplayDefenseValue = "On" Then
	If Info(パイロットデータ,Args(1),格闘) = 1 Then
		wPaintString 441 250 "--"
	Else
		Local dif
		If Info(オプション,防御力低成長) <> "On" Then
			dif = (100 + Level(Args(1)) + 5 * Info(パイロット,Args(1),特殊能力レベル,耐久))
		Else
			dif = (100 + Int(Level(Args(1)) / 2) + 5 * Info(パイロット,Args(1),特殊能力レベル,耐久))
		EndIf
		If Info(パイロット,Args(1),特殊能力レベル,耐久) > Info(パイロットデータ,Args(1),特殊能力レベル,耐久) Then
			gPaintString (464 - TextWidth(dif)) 250 dif
		Else
			wPaintString (464 - TextWidth(dif)) 250 dif
		EndIf
	EndIf
Else
	If Info(パイロットデータ,Args(1),反応) = 1 Then
		wPaintString 441 250 "--"
	Else
		If Info(パイロット,Args(1),反応) > Info(パイロット,Args(1),反応基本値) Then
			gPaintString (464 - TextWidth(Info(パイロット,Args(1),反応))) 250 Info(パイロット,Args(1),反応)
		Else
			wPaintString (464 - TextWidth(Info(パイロット,Args(1),反応))) 250 Info(パイロット,Args(1),反応)
		EndIf
	EndIf
EndIf
If Info(パイロットデータ,Args(1),命中) = 1 Then
	wPaintString 441 285 "--"
Else
	If Info(パイロット,Args(1),命中) > Info(パイロット,Args(1),命中基本値) Then
		gPaintString (464 - TextWidth(Info(パイロット,Args(1),命中))) 285 Info(パイロット,Args(1),命中)
	Else
		wPaintString (464 - TextWidth(Info(パイロット,Args(1),命中))) 285 Info(パイロット,Args(1),命中)
	EndIf
EndIf
Font 11pt Ｐゴシック
Local PApt
PApt = Info(パイロット,Args(1),地形適応)
Local i
For i = 1 To 4
	If Mid(PApt,i,1) = "-" Then
		wPaintString (316 + 34 * i) 320 "E"
	Else
		wPaintString (316 + 34 * i) 320 Mid(PApt,i,1)
	EndIf
Next
If Info(ユニット,UnitID(Args(1)),特殊能力所有,"ＢＧＭ") Then
	テーマ曲 = Info(ユニット,UnitID(Args(1)),特殊能力データ,"ＢＧＭ")
Else
	テーマ曲 = Info(パイロット,Args(1),ＭＩＤＩ)
EndIf
Local ari
ari = 曲判定()
If TextWidth(テーマ曲) > 170 Then
	Local te
	For te = 1 To Len(テーマ曲)
		If TextWidth(Left(テーマ曲,te)) > 170 Then
			sPaintString ari 293 380 Left(テーマ曲,(te - 1))
			sPaintString ari 293 400 Mid(テーマ曲,te)
			Break
		EndIf
	Next
Else
	sPaintString ari 293 390 テーマ曲
EndIf
If ((ターン数 = 0) And (ari = 1) And (PlayMIDIType = 0)) Or ((ari = 1) And (PlayMIDIType = 1)) Then
	wPaintString 400 425 "♪PLAY"
	HotPoint ＭＩＤＩ演奏 399 424 60 20 "PLAY BGM"
EndIf
Font
Return

レーダーチャート表示:
Color #80ff80
FillStyle クロス
FillColor #008000
Local 格闘X 命中X 反応X 射撃X 技量X 回避X
命中X = 270
格闘X = 240
反応X = 250
技量X = 260
回避X = 270
射撃X = 240
Local mei_x mei_y kaku_x kaku_y han_x han_y gi_x gi_y kai_x kai_y sya_x sya_y
If Info(パイロットデータ,Args(1),命中) = 1 Then
	mei_x = 149
	mei_y = 330
Else
	mei_x = 149
	mei_y = (331 - Info(パイロット,Args(1),命中) * 96 / 命中X)
EndIf
If Info(パイロットデータ,Args(1),格闘) = 1 Then
	kaku_x = 148
	kaku_y = 330
Else
	kaku_x = (149 - (3 ^ 0.5) * (Info(パイロット,Args(1),格闘) * 48 / 格闘X))
	kaku_y = (331 - (Info(パイロット,Args(1),格闘) * 48 / 格闘X))
EndIf
If DisplayDefenseValue = "On" Then
	If Info(パイロットデータ,Args(1),格闘) = 1 Then
		han_x = 148
		han_y = 332
	Else
		Local dif
		If Info(オプション,防御力低成長) <> "On" Then
			dif = (100 + Level(Args(1)) + 5 * Info(パイロット,Args(1),特殊能力レベル,耐久))
		Else
			dif = (100 + Int(Level(Args(1)) / 2) + 5 * Info(パイロット,Args(1),特殊能力レベル,耐久))
		EndIf
		han_x = (149 - (3 ^ 0.5) * (dif * 48 / 反応X))
		han_y = (331 + (dif * 48 / 反応X))
	EndIf
Else
	If Info(パイロットデータ,Args(1),反応) = 1 Then
		han_x = 148
		han_y = 332
	Else
		han_x = (149 - (3 ^ 0.5) * (Info(パイロット,Args(1),反応) * 48 / 反応X))
		han_y = (331 + (Info(パイロット,Args(1),反応) * 48 / 反応X))
	EndIf
EndIf
If Info(パイロットデータ,Args(1),技量) = 1 Then
	gi_x = 149
	gi_y = 332
Else
	gi_x = 149
	gi_y = (331 + Info(パイロット,Args(1),技量) * 96 / 技量X)
EndIf
If Info(パイロットデータ,Args(1),回避) = 1 Then
	kai_x = 150
	kai_y = 332
Else
	kai_x = (149 + (3 ^ 0.5) * (Info(パイロット,Args(1),回避) * 48 / 回避X))
	kai_y = (331 + (Info(パイロット,Args(1),回避) * 48 / 回避X))
EndIf
If Info(パイロットデータ,Args(1),射撃) = 1 Then
	sya_x = 150
	sya_y = 330
Else
	sya_x = (149 + (3 ^ 0.5) * (Info(パイロット,Args(1),射撃) * 48 / 射撃X))
	sya_y = (331 - (Info(パイロット,Args(1),射撃) * 48 / 射撃X))
EndIf
Polygon mei_x mei_y kaku_x kaku_y han_x han_y gi_x gi_y kai_x kai_y sya_x sya_y
Line 149 236 149 426 B #808080
Line 66 283 232 379 #808080
Line 66 379 232 283 #808080
FillColor #ffffff
FillStyle 透明
Color #ffffff
Return

武器性能表示土台:
Font
はいけいはりつけ
Line 14 110 465 343 B FrameColor1
Line 14 346 465 455 B FrameColor1
Line 32 373 189 373 B FrameColor1
Line 32 408 189 408 B FrameColor1
Line 32 443 189 443 B FrameColor1
Line 225 373 447 373 B FrameColor1
Line 225 408 447 408 B FrameColor1
Line 225 443 447 443 B FrameColor1
Line 14 64 465 64 B FrameColor2
六角ボタン 24 FrameColor3 #4a4a4a
六角ボタン 134 FrameColor3 #4a4a4a
六角ボタン 244 FrameColor3 #4a4a4a
六角ボタン 354 FrameColor1 #c8c8c8
Font 12pt Ｐゴシック
yPaintString 225 120 属性
yPaintString 270 120 種別
yPaintString 313 120 攻撃力
yPaintString 377 120 射程
yPaintString 425 120 命中
yPaintString 40 355 弾数
yPaintString 40 390 消費ＥＮ
yPaintString 40 425 必要気力
yPaintString 233 355 ｸﾘﾃｨｶﾙ補正
yPaintString 233 390 地形適応
yPaintString 233 425 武器属性
Font 11pt
bPaintString 305 390 空
bPaintString 340 390 陸
bPaintString 375 390 海
bPaintString 410 390 宇
HotPoint アビリティ 354 24 102 37 アビリティ性能
HotPoint 属性 14 346 452 110 属性解説
Font
Return

武器性能表示土台人間:
Font
Font 10pt Ｐゴシック
PaintString 378 36 攻撃手段
Font #464646
PaintString 48 36 総合能力
PaintString 158 36 身体能力
PaintString 268 36 個人技能
Font 12pt Ｐゴシック
yPaintString 85 120 攻撃手段
HotPoint 機体 134 24 102 37 身体能力
If Info(パイロット,Args(1),愛称) <> パイロット不在 Then
	HotPoint ユニット 24 24 102 37 総合能力
	HotPoint パイロット 244 24 102 37 個人技能
EndIf
Font
Return

武器性能表示土台機体:
Font
Font 10pt Ｐゴシック
PaintString 376 36 武器性能
Font #464646
PaintString 38 36 ユニット能力
PaintString 158 36 機体能力
PaintString 253 36 パイロット能力
Font 12pt Ｐゴシック
yPaintString 85 120 武器名
HotPoint 機体 134 24 102 37 機体能力
If Info(パイロット,Args(1),愛称) <> パイロット不在 Then
	HotPoint ユニット 24 24 102 37 ユニット能力
	HotPoint パイロット 244 24 102 37 パイロット能力
EndIf
Font
Return

機隊と名前:
Font
Font 14pt Ｐゴシック
wPaintString 100 80 Info(ユニット,UnitID(Args(1)),愛称)
PaintPicture ("Unit\" & Info(ユニット,UnitID(Args(1)),グラフィック)) 16 70 64 64 透過
Font
Return

武器性能ページ:
Font
Local i
If 真武器番[ページ数] < 1 Then
	Set 真武器番[武器数] 0
	For i = 1 To Info(ユニット,UnitID(Args(1)),武器数)
		If Eval("Disable($(Unit(Args(1))),$(Info(ユニット,UnitID(Args(1)),武器,i)))") Then
		ElseIf Eval("Disable($(Info(ユニット,UnitID(Args(1)),武器,i)))") Then
		ElseIf Info(ユニット,UnitID(Args(1)),武器,i,修得) = 0 Then
		ElseIf (Info(ユニット,UnitID(Args(1)),武器,i,属性所有,合) AND (パートナー存在(Args(1),Info(ユニット,UnitID(Args(1)),武器,i)) = 0)) Then 
		Else 
			真武器番[真武器番[武器数] + 1] = i
			Incr 真武器番[武器数]
		EndIf
	Next
	武器そーと Args(1)
	真武器番[ページ数] = ((真武器番[武器数] - 1) \ 8 + 1)
EndIf
Font 14pt Ｐゴシック
wPaintString 400 80 "$(Args(2)) / $(真武器番[ページ数])"
For i = 0 To 22
	チェックの色 i
	Line 15 (i + 116 + Args(3) * 25) 464 (i + 116 + Args(3) * 25) BF
Next
If 真武器番[ページ数] > 1 Then
	HotPoint 次のページ 10 65 460 45 次のページ
EndIf
武器ページ作成 Args(1) Args(2) 真武器番[ページ数]
武器弾数など Args(1) 真武器番[(Args(2) - 1) * 8 + Args(3)]
Font
Return

武器そーと:
Local i
Local j
Local bukitemp
For i = 2 To 真武器番[武器数]
	j = i
	Do While (j > 1)
		If Info(ユニット,UnitID(Args(1)),武器,真武器番[j],攻撃力) < Info(ユニット,UnitID(Args(1)),武器,真武器番[j - 1],攻撃力) Then
			bukitemp = 真武器番[j]
			真武器番[j] = 真武器番[j - 1]
			真武器番[j - 1] = bukitemp
			j = (j - 1)
		Else
			Break
		EndIf
	Loop
Next
Return

武器ページ作成:
Local どこまで
Local i
If Args(2) = Args(3) Then
	どこまで = (真武器番[武器数] - (Args(2) - 1) * 8)
Else
	どこまで = 8
EndIf
For i = 1 To どこまで
	各武器表示 Args(1) 真武器番[((Args(2) - 1) * 8 + i)] i
Next
Return

各武器表示:
Font
Local gow
Font 12pt Ｐゴシック
If (Info(ユニット,UnitID(Args(1)),武器,Args(2),使用可) = 1) OR (ターン数 = 0) Then
	gow = 1
	Line 225 (119 + Args(3) * 25) 258 (136 + Args(3) * 25) BF FrameColor3
	Line 268 (119 + Args(3) * 25) 305 (136 + Args(3) * 25) BF FrameColor3
	PaintPicture \event\属性.png 224 (118 + Args(3) * 25) 透過
	PaintPicture \event\種別.png 267 (118 + Args(3) * 25) 透過
	If Info(ユニット,UnitID(Args(1)),武器,Args(2),属性所有,"複") = 1 Then
		PaintPicture \event\複合.png 25 (118 + Args(3) * 25) 20 20 透過
	ElseIf 射撃武器(Args(1),Args(2)) = 1 Then
		PaintPicture \event\射撃.png 25 (118 + Args(3) * 25) 20 20 透過
	Else
		PaintPicture \event\格闘.png 25 (118 + Args(3) * 25) 20 20 透過
	EndIf
Else
	gow = 2
	Line 225 (119 + Args(3) * 25) 258 (136 + Args(3) * 25) BF FrameColor4
	Line 268 (119 + Args(3) * 25) 305 (136 + Args(3) * 25) BF FrameColor4
	PaintPicture \event\属性.png 224 (118 + Args(3) * 25) 透過 暗
	PaintPicture \event\種別.png 267 (118 + Args(3) * 25) 透過 暗
	If Info(ユニット,UnitID(Args(1)),武器,Args(2),属性所有,"複") = 1 Then
		PaintPicture \event\複合.png 25 (118 + Args(3) * 25) 20 20 透過 暗
	ElseIf 射撃武器(Args(1),Args(2)) = 1 Then
		PaintPicture \event\射撃.png 25 (118 + Args(3) * 25) 20 20 透過 暗
	Else
		PaintPicture \event\格闘.png 25 (118 + Args(3) * 25) 20 20 透過 暗
	EndIf
EndIf
Font 10pt
Local 武器の名前
If InStr(Info(ユニット,UnitID(Args(1)),武器,Args(2)),"(")  Then
	武器の名前 = Left(Info(ユニット,UnitID(Args(1)),武器,Args(2)),(InStr(Info(ユニット,UnitID(Args(1)),武器,Args(2)),"(") - 1))
Else
	武器の名前 = Info(ユニット,UnitID(Args(1)),武器,Args(2))
EndIf
sPaintString gow 50 (121 + Args(3) * 25) 武器の名前
If 移動後攻撃可(Args(1),Args(2)) = 1 Then
	Font 11pt
	sPaintString gow 228 (120 + Args(3) * 25) "Ｐ"
EndIf
If ビーム兵器(Args(1),Args(2)) = 1 Then
	Font 11pt
	sPaintString gow 245 (120 + Args(3) * 25) "Ｂ"
EndIf
If マップ兵器(Args(1),Args(2)) = 1 Then
	Font 11pt
	sPaintString gow 271 (120 + Args(3) * 25) "MAP"
EndIf
Font 12pt Ｐゴシック
sPaintString gow (362 - TextWidth(Info(ユニット,UnitID(Args(1)),武器,Args(2),攻撃力))) (120 + Args(3) * 25) Info(ユニット,UnitID(Args(1)),武器,Args(2),攻撃力)
sPaintString gow (385 - TextWidth(Info(ユニット,UnitID(Args(1)),武器,Args(2),最小射程))) (120 + Args(3) * 25) Info(ユニット,UnitID(Args(1)),武器,Args(2),最小射程)
sPaintString gow 402 (120 + Args(3) * 25) Info(ユニット,UnitID(Args(1)),武器,Args(2),最大射程)
If Info(ユニット,UnitID(Args(1)),武器,Args(2),命中率) >= 0 Then
	sPaintString gow (460 - TextWidth("+" & Info(ユニット,UnitID(Args(1)),武器,Args(2),命中率))) (120 + Args(3) * 25) ("+" & Info(ユニット,UnitID(Args(1)),武器,Args(2),命中率))
Else
	sPaintString gow (460 - TextWidth(Info(ユニット,UnitID(Args(1)),武器,Args(2),命中率))) (120 + Args(3) * 25) Info(ユニット,UnitID(Args(1)),武器,Args(2),命中率)
EndIf
Font 10pt
sPaintString gow 387 (122 + Args(3) * 25) "〜"
HotPoint "$(Args(3))" 15 (116 + Args(3) * 25) 450 25 武器の名前
Font
Return

武器弾数など:
Font
Font 12pt Ｐゴシック
wPaintString 140 355 "/"
If Info(ユニット,UnitID(Args(1)),武器,Args(2),最大弾数) = 0 Then
	wPaintString (140 - TextWidth("--")) 355 "--"
	wPaintString 150 355 "--"
Else
	wPaintString (140 - TextWidth(Info(ユニット,UnitID(Args(1)),武器,Args(2),弾数))) 355 Info(ユニット,UnitID(Args(1)),武器,Args(2),弾数)
	wPaintString 150 355 Info(ユニット,UnitID(Args(1)),武器,Args(2),最大弾数)
EndIf
wPaintString 150 390 "("
wPaintString 185 390 ")"
If Condition(UnitID(Args(1)),データ不明) = 1 Then
	wPaintString (185 - TextWidth("???")) 390 "???"
Else
	wPaintString (185 - TextWidth(EN(UnitID(Args(1))))) 390 EN(UnitID(Args(1)))
EndIf
If Info(ユニット,UnitID(Args(1)),武器,Args(2),消費ＥＮ) = 0 Then
	wPaintString (145 - TextWidth("---")) 390 "---"
Else
	wPaintString (145 - TextWidth(Info(ユニット,UnitID(Args(1)),武器,Args(2),消費ＥＮ))) 390 Info(ユニット,UnitID(Args(1)),武器,Args(2),消費ＥＮ) 
EndIf
wPaintString 150 425 "("
wPaintString 185 425 ")"
wPaintString (185 - TextWidth(Morale(Args(1)))) 425 Morale(Args(1))
If Info(ユニット,UnitID(Args(1)),武器,Args(2),必要気力) = 0 Then
	wPaintString (145 - TextWidth("---")) 425 "---"
Else
	wPaintString (145 - TextWidth(Info(ユニット,UnitID(Args(1)),武器,Args(2),必要気力))) 425 Info(ユニット,UnitID(Args(1)),武器,Args(2),必要気力) 
EndIf
If Info(ユニット,UnitID(Args(1)),武器,Args(2),クリティカル率) >= 0 Then
	wPaintString (370 - TextWidth("+" & Info(ユニット,UnitID(Args(1)),武器,Args(2),クリティカル率))) 355 ("+" & Info(ユニット,UnitID(Args(1)),武器,Args(2),クリティカル率))
Else
	wPaintString (370 - TextWidth(Info(ユニット,UnitID(Args(1)),武器,Args(2),クリティカル率))) 355 Info(ユニット,UnitID(Args(1)),武器,Args(2),クリティカル率)
EndIf
If InStr(Info(ユニット,UnitID(Args(1)),武器,Args(2),属性),"|") <> 0 Then
	wPaintString 305 425 Left(Info(ユニット,UnitID(Args(1)),武器,Args(2),属性),(InStr(Info(ユニット,UnitID(Args(1)),武器,Args(2),属性),"|") - 1))
Else
	wPaintString 305 425 Info(ユニット,UnitID(Args(1)),武器,Args(2),属性)
EndIf
Font 11pt
wPaintString 323 390 Mid(Info(ユニット,UnitID(Args(1)),武器,Args(2),地形適応),1,1)
wPaintString 358 390 Mid(Info(ユニット,UnitID(Args(1)),武器,Args(2),地形適応),2,1)
wPaintString 393 390 Mid(Info(ユニット,UnitID(Args(1)),武器,Args(2),地形適応),3,1)
wPaintString 428 390 Mid(Info(ユニット,UnitID(Args(1)),武器,Args(2),地形適応),4,1)
Font
Return

アビリティ性能表示土台:
Font
はいけいはりつけ
Line 14 110 465 343 B FrameColor1
Line 14 346 465 455 B FrameColor1
Line 32 373 189 373 B FrameColor1
Line 32 408 189 408 B FrameColor1
Line 32 443 189 443 B FrameColor1
Line 225 373 447 373 B FrameColor1
Line 225 408 447 408 B FrameColor1
Line 225 443 447 443 B FrameColor1
Line 14 64 465 64 B FrameColor2
六角ボタン 24 FrameColor3 #4a4a4a
六角ボタン 134 FrameColor3 #4a4a4a
六角ボタン 244 FrameColor3 #4a4a4a
六角ボタン 354 FrameColor1 #c8c8c8
Font 10pt Ｐゴシック
PaintString 376 36 アビリティ
Font 12pt
yPaintString 85 120 アビリティ名
yPaintString 225 120 属性
yPaintString 270 120 種別
yPaintString 322 120 射程
yPaintString 377 120 効果タイプ
yPaintString 40 355 回数
yPaintString 40 390 消費ＥＮ
yPaintString 40 425 必要気力
yPaintString 233 355 効果タイプ
yPaintString 233 425 属性
HotPoint 属性 14 346 452 110 属性解説
Font
Return

アビリティ性能表示土台人間:
Font
Font 10pt Ｐゴシック #464646
PaintString 48 36 総合能力
PaintString 158 36 身体能力
PaintString 268 36 個人技能
HotPoint 武器 354 24 102 37 攻撃手段
HotPoint 機体 134 24 102 37 身体能力
If Info(パイロット,Args(1),愛称) <> パイロット不在 Then
	HotPoint ユニット 24 24 102 37 総合能力
	HotPoint パイロット 244 24 102 37 個人技能
EndIf
Font
Return

アビリティ性能表示土台機体:
Font
Font 10pt Ｐゴシック #464646
PaintString 38 36 ユニット能力
PaintString 158 36 機体能力
PaintString 253 36 パイロット能力
HotPoint 機体 134 24 102 37 機体能力
HotPoint 武器 354 24 102 37 武器性能
If Info(パイロット,Args(1),愛称) <> パイロット不在 Then
	HotPoint ユニット 24 24 102 37 ユニット能力
	HotPoint パイロット 244 24 102 37 パイロット能力
EndIf
Font
Return

アビリティ性能ページ:
Font
Local i
If 真アビリティ番[ページ数] < 1 Then
	Set 真アビリティ番[アビリティ数] 0
	For i = 1 To Info(ユニット,UnitID(Args(1)),アビリティ数)
		If Eval("Disable($(Unit(Args(1))),$(Info(ユニット,UnitID(Args(1)),アビリティ,i)))") Then
		ElseIf Eval("Disable($(Info(ユニット,UnitID(Args(1)),アビリティ,i)))") Then
		ElseIf Info(ユニット,UnitID(Args(1)),アビリティ,i,修得) = 0 Then
		ElseIf (Info(ユニット,UnitID(Args(1)),アビリティ,i,属性所有,合) AND (パートナー存在(Args(1),Info(ユニット,UnitID(Args(1)),アビリティ,i)) = 0)) Then 
		Else 
			真アビリティ番[真アビリティ番[アビリティ数] + 1] = i
			Incr 真アビリティ番[アビリティ数]
		EndIf
	Next
	真アビリティ番[ページ数] = ((真アビリティ番[アビリティ数] - 1) \ 8 + 1)
EndIf
Font 14pt Ｐゴシック
wPaintString 400 80 "$(Args(2)) / $(真アビリティ番[ページ数])"
For i = 0 To 22
	チェックの色 i
	Line 15 (i + 116 + Args(3) * 25) 464 (i + 116 + Args(3) * 25) BF
Next
If 真アビリティ番[ページ数] > 1 Then
	HotPoint 次のページ 10 65 460 45 次のページ
EndIf
アビリティページ作成 Args(1) Args(2) 真アビリティ番[ページ数]
アビリティ弾数など Args(1) 真アビリティ番[(Args(2) - 1) * 8 + Args(3)]
Font
Return

アビリティページ作成:
Local どこまで
Local i
If Args(2) = Args(3) Then
	どこまで = (真アビリティ番[アビリティ数] - (Args(2) - 1) * 8)
Else
	どこまで = 8
EndIf
For i = 1 To どこまで
	各アビリティ表示 Args(1) 真アビリティ番[((Args(2) - 1) * 8 + i)] i
Next
Return

各アビリティ表示:
Font
Font 12pt Ｐゴシック
Local gow
If (Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),使用可) = 1) OR (ターン数 = 0) Then
	gow = 1
	Line 225 (119 + Args(3) * 25) 258 (136 + Args(3) * 25) BF FrameColor3
	Line 268 (119 + Args(3) * 25) 305 (136 + Args(3) * 25) BF FrameColor3
	PaintPicture \event\属性.png 224 (118 + Args(3) * 25) 透過
	PaintPicture \event\種別.png 267 (118 + Args(3) * 25) 透過
Else
	gow = 2
	Line 225 (119 + Args(3) * 25) 258 (136 + Args(3) * 25) BF FrameColor4
	Line 268 (119 + Args(3) * 25) 305 (136 + Args(3) * 25) BF FrameColor4
	PaintPicture \event\属性.png 224 (118 + Args(3) * 25) 透過 暗
	PaintPicture \event\種別.png 267 (118 + Args(3) * 25) 透過 暗
EndIf
Font 10pt
Local アビリティの名前
If InStr(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2)),"(")  Then
	アビリティの名前 = Left(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2)),(InStr(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2)),"(") - 1))
Else
	アビリティの名前 = Info(ユニット,UnitID(Args(1)),アビリティ,Args(2))
EndIf
sPaintString gow 25 (121 + Args(3) * 25) アビリティの名前
If 移動後アビリティ可(Args(1),Args(2)) = 1 Then
	Font 11pt
	sPaintString gow 228 (120 + Args(3) * 25) "Ｐ"
EndIf
If さいこうどう(Args(1),Args(2)) = 1 Then
	Font 11pt
	sPaintString gow 244 (120 + Args(3) * 25) "W"
EndIf
If マップアビリティ(Args(1),Args(2)) = 1 Then
	Font 11pt
	sPaintString gow 271 (120 + Args(3) * 25) "MAP"
EndIf
Font 12pt Ｐゴシック
Local たいぷ一覧
If Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),最大射程) = 0 Then
	sPaintString gow (355 - TextWidth("-")) (120 + Args(3) * 25) "-"
Else
	sPaintString gow (355 - TextWidth(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),最大射程))) (120 + Args(3) * 25) Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),最大射程)
EndIf
Local i
For i = 1 To Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果数)
	If Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果タイプ,i) = "解説" Then
		Skip
	ElseIf (Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果タイプ,i) = "再行動") And (Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),最大射程) = 0) Then
		Skip
	Else
		たいぷ一覧 = たいぷ一覧 & Left(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果タイプ,i),1)
	EndIf
Next
sPaintString gow Int(418 - (TextWidth(たいぷ一覧) / 2)) (120 + Args(3) * 25) たいぷ一覧
HotPoint "$(Args(3))" 15 (116 + Args(3) * 25) 450 25 アビリティの名前
Font
Return

アビリティ弾数など:
Font
Font 12pt Ｐゴシック
wPaintString 140 355 "/"
If Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),最大使用回数) = 0 Then
	wPaintString (140 - TextWidth("--")) 355 "--"
	wPaintString 150 355 "--"
Else
	wPaintString (140 - TextWidth(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),使用回数))) 355 Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),使用回数)
	wPaintString 150 355 Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),最大使用回数)
EndIf
wPaintString 150 390 "("
wPaintString 185 390 ")"
If Condition(UnitID(Args(1)),データ不明) = 1 Then
	wPaintString (185 - TextWidth("???")) 390 "???"
Else
	wPaintString (185 - TextWidth(EN(UnitID(Args(1))))) 390 EN(UnitID(Args(1)))
EndIf
If Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),消費ＥＮ) = 0 Then
	wPaintString (145 - TextWidth("---")) 390 "---"
Else
	wPaintString (145 - TextWidth(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),消費ＥＮ))) 390 Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),消費ＥＮ) 
EndIf
wPaintString 150 425 "("
wPaintString 185 425 ")"
wPaintString (185 - TextWidth(Morale(Args(1)))) 425 Morale(Args(1))
If Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),必要気力) = 0 Then
	wPaintString (145 - TextWidth("---")) 425 "---"
Else
	wPaintString (145 - TextWidth(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),必要気力))) 425 Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),必要気力) 
EndIf
Local いちらん
Local いちらん2
Local はんていよう
Local ですぎ
Set ですぎ 0
Set いちらん ""
Set いちらん2 ""
Local i
For i = 1 To Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果数)
	If Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果タイプ,i) = "解説" Then
		Skip
	ElseIf (Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果タイプ,i) = "再行動") And (Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),最大射程) = 0) Then
		Skip
	ElseIf ですぎ = 0 Then
		はんていよう = いちらん & Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果タイプ,i)
		If TextWidth(はんていよう) > 125 Then
			Set ですぎ 1
			いちらん2 = Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果タイプ,i)
		Else
			いちらん = はんていよう
		EndIf
	Else
		いちらん2 = いちらん2 & Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果タイプ,i)
	EndIf
Next
wPaintString 315 355 いちらん
wPaintString 233 390 いちらん2
If InStr(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),属性),"|") <> 0 Then
	wPaintString 272 425 Left(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),属性),(InStr(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),属性),"|") - 1))
Else
	wPaintString 272 425 Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),属性)
EndIf
Font
Return

移動後攻撃可:
Return (Info(ユニット,UnitID(Args(1)),武器,Args(2),属性所有,"Ｐ") OR ((Info(ユニット,UnitID(Args(1)),武器,Args(2),最大射程) = 1) AND (Info(ユニット,UnitID(Args(1)),武器,Args(2),属性所有,"Ｑ") = 0)))

移動後アビリティ可:
Return (Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),属性所有,"Ｐ") OR ((Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),最大射程) = 1) AND (Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),属性所有,"Ｑ") = 0)))

射撃武器:
Return (((Info(ユニット,UnitID(Args(1)),武器,Args(2),最大射程) = 1) AND Info(ユニット,UnitID(Args(1)),武器,Args(2),属性所有,"射")) OR ((Info(ユニット,UnitID(Args(1)),武器,Args(2),最大射程) > 1) AND (Info(ユニット,UnitID(Args(1)),武器,Args(2),属性所有,"格") = 0)))

さいこうどう:
Local jibu
Local もういっかい
Set もういっかい 0
For jibu = 1 To Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果数)
	If Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),効果タイプ,jibu) = "再行動" Then
		Set もういっかい 1
		Break
	EndIf
Next
Return ((Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),最大射程) = 0) AND もういっかい)

ビーム兵器:
Return (Info(ユニット,UnitID(Args(1)),武器,Args(2),属性所有,"Ｂ") = 1)

マップ兵器:
Return (Info(ユニット,UnitID(Args(1)),武器,Args(2),属性所有,"Ｍ") = 1)

マップアビリティ:
Return (Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),属性所有,"Ｍ") = 1)

弾数ＥＮ:
Return ((Info(ユニット,UnitID(Args(1)),武器,Args(2),最大弾数) >= 10) OR ((Info(ユニット,UnitID(Args(1)),武器,Args(2),最大弾数) = 0) AND (Info(ユニット,UnitID(Args(1)),武器,Args(2),消費ＥＮ) <= 5)))

パートナー存在:
Local パートナー
Local part
Local k
Local n
パートナー = 0
For k = 1 To Info(ユニット,UnitID(Args(1)),特殊能力数)
	If LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,k),1) = Args(2) Then
		For n = 1 To (LLength(Info(ユニット,UnitID(Args(1)),特殊能力データ,k)) - 1)
			パートナー = パートナー + IsDefined(LIndex(Info(ユニット,UnitID(Args(1)),特殊能力データ,k),(n + 1)))
		Next
		If パートナー = (LLength(Info(ユニット,UnitID(Args(1)),特殊能力データ,k)) - 1) Then
			part = 1
		Else
			part = 0
		EndIf
		break
	Else
		part = 0
	EndIf
Next
Return part

ころけし:
Local Temp1
Local Temp2
Temp1 = Args(1)
Do
	If Instr(Temp1,":") Then
		Temp2 = ("$(Left(Temp1,(Instr(Temp1,":") - 1)))" & "：" & "$(Mid(Temp1,(Instr(Temp1,":") + 1),(Len(Temp1) - Instr(Temp1,":"))))")
		Set Temp1 Temp2
	Else
		Break
	EndIf
Loop While (1)
Return Temp1

属性表示:
If Args(3) = 1 Then
	武器属性格納 Args(1) Args(2)
Else
	アビリティ属性格納 Args(1) Args(2)
EndIf
If 格納属性表示[1] <> "" Then
	Do
		Ask 格納属性表示 "属性　　効果" キャンセル可
		Switch 選択
		Case ""
			Break
		Case Else
			If Args(3) = 1 Then
				Talk システム
				<B>$(格納属性名称[選択])</B>;$(Info(ユニット,Args(1),武器,Args(2),属性解説,格納属性[選択]))
				End
			Else
				Talk システム
				<B>$(格納属性名称[選択])</B>;$(Info(ユニット,Args(1),アビリティ,Args(2),属性解説,格納属性[選択]))
				End
			EndIf
		EndSw
	Loop While (1)
EndIf
UnSet 格納属性一覧
UnSet 格納属性
UnSet 格納属性表示
UnSet 格納属性名称
Return

武器属性格納:
If InStr(Info(ユニット,Args(1),武器,Args(2),属性),"|") <> 0 Then
	格納属性一覧 = Left(Info(ユニット,UnitID(Args(1)),武器,Args(2),属性),(InStr(Info(ユニット,UnitID(Args(1)),武器,Args(2),属性),"|") - 1))
Else
	格納属性一覧 = Info(ユニット,Args(1),武器,Args(2),属性)
EndIf
Local i
Local j
Local 格納
j = 0
For i = 1 To Len(格納属性一覧)
	格納 = Mid(格納属性一覧,i,1)
	If IsNumeric(格納) Then
		格納属性[j] = 格納属性[j] & 格納
	Else
		Switch 格納
		Case L 直 拡 扇 全 投 移 線 防 運
			格納属性[j] = 格納属性[j] & 格納
		Case 攻
			If i = 1 Then
				Incr j
				格納属性[j] = 格納
			ElseIf Mid(格納属性一覧,(i - 1),1) = "低" Then
				格納属性[j] = 格納属性[j] & 格納
			Else
				Incr j
				格納属性[j] = 格納
			EndIf
		Case 武 突 銃 接 実
			If i = 1 Then
				Incr j
				格納属性[j] = 格納
			ElseIf Mid(格納属性一覧,(i - 1),1) = "魔" Then
				格納属性[j] = 格納属性[j] & 格納
			Else
				Incr j
				格納属性[j] = 格納
			EndIf
		Case Else
			Incr j
			格納属性[j] = 格納
		EndSw
	EndIf
Next
For i = 1 To j
	If InStr(格納属性[i],"L") <> 0 Then
		格納属性名称[i] = Info(ユニット,Args(1),武器,Args(2),属性名称,Left(格納属性[i],InStr(格納属性[i],"L") - 1)) & "レベル$(Wide(Info(ユニット,Args(1),武器,Args(2),属性レベル,Left(格納属性[i],InStr(格納属性[i],"L") - 1))))"
		格納属性表示[i] = LSet(格納属性[i],8) & 格納属性名称[i]
	Else
		格納属性名称[i] = Info(ユニット,Args(1),武器,Args(2),属性名称,格納属性[i])
		格納属性表示[i] = LSet(格納属性[i],8) & 格納属性名称[i]
	EndIf
Next
Return

アビリティ属性格納:
If InStr(Info(ユニット,Args(1),アビリティ,Args(2),属性),"|") <> 0 Then
	格納属性一覧 = Left(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),属性),(InStr(Info(ユニット,UnitID(Args(1)),アビリティ,Args(2),属性),"|") - 1))
Else
	格納属性一覧 = Info(ユニット,Args(1),アビリティ,Args(2),属性)
EndIf
Local i
Local j
Local 格納
j = 0
For i = 1 To Len(格納属性一覧)
	格納 = Mid(格納属性一覧,i,1)
	If IsNumeric(格納) Then
		格納属性[j] = 格納属性[j] & 格納
	Else
		Switch 格納
		Case L 直 拡 扇 全 投 移 線 防 運
			格納属性[j] = 格納属性[j] & 格納
		Case 攻
			If i = 1 Then
				Incr j
				格納属性[j] = 格納
			ElseIf Mid(格納属性一覧,(i - 1),1) = "低" Then
				格納属性[j] = 格納属性[j] & 格納
			Else
				Incr j
				格納属性[j] = 格納
			EndIf
		Case 武 突 銃 接 実
			If i = 1 Then
				Incr j
				格納属性[j] = 格納
			ElseIf Mid(格納属性一覧,(i - 1),1) = "魔" Then
				格納属性[j] = 格納属性[j] & 格納
			Else
				Incr j
				格納属性[j] = 格納
			EndIf
		Case Else
			Incr j
			格納属性[j] = 格納
		EndSw
	EndIf
Next
For i = 1 To j
	If InStr(格納属性[i],"L") <> 0 Then
		格納属性名称[i] = Info(ユニット,Args(1),アビリティ,Args(2),属性名称,Left(格納属性[i],InStr(格納属性[i],"L") - 1)) & "レベル$(Wide(Info(ユニット,Args(1),アビリティ,Args(2),属性レベル,Left(格納属性[i],InStr(格納属性[i],"L") - 1))))"
		格納属性表示[i] = LSet(格納属性[i],8) & 格納属性名称[i]
	Else
		格納属性名称[i] = Info(ユニット,Args(1),アビリティ,Args(2),属性名称,格納属性[i])
		格納属性表示[i] = LSet(格納属性[i],8) & 格納属性名称[i]
	EndIf
Next
Return

曲判定:
Local ari
Local kyoku
If Len(テーマ曲) < 5 Then
	ari = 0
Else
	kyoku = Left(テーマ曲,Len(テーマ曲) - 4)
	If Dir(ScenarioPath & "\Midi\" & kyoku & ".*",ファイル) <> "" Then
		ari = 1
	ElseIf Dir(AppPath & "\Midi\" & kyoku & ".*",ファイル) <> "" Then
		ari = 1
	ElseIf Dir(ExtDataPath & "\Midi\" & kyoku & ".*",ファイル) <> "" Then
		ari = 1
	ElseIf Dir(ExtDataPath2 & "\Midi\" & kyoku & ".*",ファイル) <> "" Then
		ari = 1
	Else
		ari = 0
	EndIf
EndIf
Return ari

変数リセット:
UnSet 搭乗員
UnSet 真武器番
UnSet 真アビリティ番
UnSet 真アイテム番
UnSet 真特能番
UnSet 真技能番
UnSet テーマ曲
UnSet 参照項目
UnSet だれ
Return

ステ設定消す:
UnSet FrameColor1
UnSet FrameColor2
UnSet FrameColor3
UnSet FrameColor4
UnSet LetterColor1
UnSet LetterColor2
UnSet LetterColor3
UnSet LetterColor4
UnSet LetterColor5
UnSet LetterShadow
UnSet SelectR
UnSet SelectG
UnSet SelectB
UnSet BGGraphic
UnSet BackGroundColor
UnSet BackGround
UnSet BackGroundOption
UnSet ShiftUnitGraphicX
UnSet ShiftUnitGraphicY
UnSet ShiftEncUnitGraphicX
UnSet ShiftEncUnitGraphicY
UnSet ReservePict
UnSet ReservePilotPicture
UnSet LinkWithEncyclopedia
UnSet DisplayDefenseValue
UnSet DisplayPilotPoints
UnSet DisplayShootingDownPoints
UnSet AcePoints
UnSet CharacterEncyclopediaTitle
UnSet UnitEncyclopediaTitle
UnSet SoundTestTitle
UnSet GalleryTitle
UnSet EncyclopediaBGM
UnSet EncyclopediaDataType
UnSet PlayMIDIType
Return

rPaintString:
Font LetterShadow
PaintString (Args(1) + 1) (Args(2) + 1) Args(3)
Font #ff0000
PaintString Args(1) Args(2) Args(3)
Return

oPaintString:
Font LetterShadow
PaintString (Args(1) + 1) (Args(2) + 1) Args(3)
Font #ff8000
PaintString Args(1) Args(2) Args(3)
Return

yPaintString:
Font LetterShadow
PaintString (Args(1) + 1) (Args(2) + 1) Args(3)
Font LetterColor2
PaintString Args(1) Args(2) Args(3)
Return

bPaintString:
Font LetterShadow
PaintString (Args(1) + 1) (Args(2) + 1) Args(3)
Font LetterColor3
PaintString Args(1) Args(2) Args(3)
Return

gPaintString:
Font LetterShadow
PaintString (Args(1) + 1) (Args(2) + 1) Args(3)
If LetterColor5 = 0 Then
	Font #00ff00
Else
	Font LetterColor5
EndIf
PaintString Args(1) Args(2) Args(3)
Return

wPaintString:
Font LetterShadow
PaintString (Args(1) + 1) (Args(2) + 1) Args(3)
Font LetterColor1
PaintString Args(1) Args(2) Args(3)
Return

wrPaintString:
Font LetterShadow
PaintString (Args(1) + 1) (Args(2) + 1) Args(3)
Switch Args(4)
Case 0 1
	Font LetterColor1
Case 2 3
	Font #ff0000
EndSw
PaintString Args(1) Args(2) Args(3)
Return

sPaintString:
Font LetterShadow
PaintString (Args(2) + 1) (Args(3) + 1) Args(4)
If Args(1) = 1 Then
	Font LetterColor1
Else
	Font LetterColor4
EndIf
PaintString Args(2) Args(3) Args(4)
Return

六角ボタン:
Color Args(2)
FillStyle 塗りつぶし
FillColor Args(2)
Polygon (Args(1) + 18) 24 Args(1) 42 (Args(1) + 18) 60 (Args(1) + 83) 60 (Args(1) + 101) 42 (Args(1) + 83) 24
FillStyle 透明
Color Args(3)
Line (Args(1) + 84) 60 (Args(1) + 102) 42
Return

はいけいはりつけ:
ClearPicture
If BGGraphic = "On" Then
	PaintPicture BackGround - - 460 460 10 10 460 460 BackGroundOption
Else
	Line 10 10 469 469 BF BackGroundColor
EndIf
#Colorfilter #0000ff 70% 非同期
Return

チェックの色:
Color RGB(SelectR * (200 - Args(1) * 6),SelectG * (200 - Args(1) * 6),SelectB * (200 - Args(1) * 6))
Return

#####################omake#######################################

勝利条件表示:
Require Lib\Alpha2ndStatus.ini
各種数値の設定
描画オプション初期化
Font
Font 11pt Ｐゴシック
Font #000000
はいけいはりつけ
PaintPicture \event\勝利条件.png - - 透過
PaintString 20 16 "OPERATION END"
PaintString 332 449 "OPERATION END"
Line 16 39 463 170 B FrameColor1
Line 16 173 463 304 B FrameColor1
Line 16 307 463 405 B FrameColor1
Line 16 408 463 440 B FrameColor1
Font 15pt ゴシック
yPaintString 25 48 "勝利条件"
yPaintString 25 182 "敗北条件"
yPaintString 25 315 Args(4)
If TextWidth(Args(3)) > 430 Then
	Font 13pt
EndIf
wPaintString 25 416 Args(3)
Font 16pt
Local syouri
Local FS
Local haiboku
Local FH
Local jyouken
Local FJ
If Left(Args(1),2) = "F:" Then
	syouri = Mid(Args(1),3)
	FS = 1
Else
	syouri = Args(1)
	FS = 0
EndIf
If Left(Args(2),2) = "F:" Then
	haiboku = Mid(Args(2),3)
	FH = 1
Else
	haiboku = Args(2)
	FH = 0
EndIf
If Left(Args(5),2) = "F:" Then
	jyouken = Mid(Args(5),3)
	FJ = 1
Else
	jyouken = Args(5)
	FJ = 0
EndIf
Local L
L = 0
Do While (KeyState(1) Or KeyState(32))
Loop
Do While ((KeyState(1) = 0) And (KeyState(2) = 0) And (KeyState(32) = 0))
	If FS = 1 Then
		S条件表示 78 syouri L
	Else
		条件表示 78 syouri
	EndIf
	If FH = 1 Then
		S条件表示 212 haiboku L
	Else
		条件表示 212 haiboku
	EndIf
	If FJ = 1 Then
		S条件表示 344 jyouken L
	Else
		条件表示 344 jyouken
	EndIf
	Incr L
	If L > 3 Then
		L = 0
	EndIf
	Wait 0.5
Loop
ClearPicture
Refresh
Font
ステ設定消す
Return

条件表示:
Local contents
contents = Args(2)
Local rows
rows = 0
Do
	If Instr(contents,":") Then
		Local Temp1
		Temp1 = Left(contents,(Instr(contents,":") - 1))
		contents = Mid(contents,(Instr(contents,":") + 1),(Len(contents) - Instr(contents,":")))
		wPaintString 25 (Args(1) + rows * 30) Temp1
		Incr rows
	Else
		Break
	EndIf
Loop While (1)
wPaintString 25 (Args(1) + rows * 30) contents
Return

S条件表示:
Local contents
contents = Args(2)
Local rows
rows = 0
Do
	If Instr(contents,":") Then
		Local Temp1
		Temp1 = Left(contents,(Instr(contents,":") - 1))
		contents = Mid(contents,(Instr(contents,":") + 1),(Len(contents) - Instr(contents,":")))
		wrPaintString 25 (Args(1) + rows * 30) Temp1 Args(3)
		Incr rows
	Else
		Break
	EndIf
Loop While (1)
wrPaintString 25 (Args(1) + rows * 30) contents Args(3)
Return

描画オプション初期化:
Color #ffffff
DrawOption 通常
DrawWidth 1
FillColor #ffffff
FillStyle 透明
Font
Return

獲得アイテム表示:
Require Lib\Alpha2ndStatus.ini
各種数値の設定
描画オプション初期化
ClearPicture
If BGGraphic = "On" Then
	PaintPicture BackGround - - 460 96 10 192 460 96 BackGroundOption
Else
	Line 10 192 469 287 BF BackGroundColor
EndIf
PaintPicture \event\ボーナス.png - - 透過
Font 11pt Ｐゴシック #000000
PaintString 20 198 "BONUS"
PaintString 407 265 "BONUS"
Font 12pt Ｐゴシック Regular
wPaintString (240 - Int(TextWidth("『$(Args(1))』を手に入れた") / 2)) 230 "『$(Args(1))』を手に入れた"
Item Args(1)
PlaySound Sharara.wav
Wait click
ClearPicture
Refresh
Font
Return

ボーナスアイテム表示:
Require Lib\Alpha2ndStatus.ini
各種数値の設定
描画オプション初期化
ClearPicture
If BGGraphic = "On" Then
	PaintPicture BackGround - - 460 96 10 192 460 96 BackGroundOption
Else
	Line 10 192 469 287 BF BackGroundColor
EndIf
PaintPicture \event\ボーナス.png - - 透過
Font 11pt Ｐゴシック #000000
PaintString 20 198 "BONUS"
PaintString 407 265 "BONUS"
Font 12pt Ｐゴシック Regular
wPaintString (240 - Int(TextWidth("特別ボーナス！　『$(Args(1))』を手に入れた") / 2)) 230 "特別ボーナス！　『$(Args(1))』を手に入れた"
Item Args(1)
PlaySound Sharara.wav
Wait click
ClearPicture
Refresh
Font
Return

ExWait:
Do While KeyState(2)
Loop
Wait 1
Return
